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CHAPTER 1 


A BEGINNERS GUIDE TO 
COMPUTERS 


With the Commodore 64, you can enter the fascinating world of personal 
computing and, like many thousands of other people, you will probably 
become addicted to the subject. However - be warned, an addiction to 
computing means spending much of your time happily tapping away at 
the keyboard of your computer. If you are new to computing, do not be 
overwhelmed by thelnitial sight of what looks like a bewildering array of 
shiny hardware with a complex instruction manual; possibly the hardest 
part of personal computing is deciding to spend your hard earned money 
on a machine - the rest is easy. Even if you have no previous computing 
experience, it should only take just a couple of hours to do some useful 
things. Like the majority of hobbies, computing skills will only develop 
with continual practice and by reading around the subject. Always try any 
ideas or queries you have on thecomputerand see what actually happens; 
also be confident that you know the reasons why any result occur. 

Before studying the particular capabilities of your Commodore 64 it is 
both important and interesting to understand the basic ideas and 
components of a general computer system. You will soon realize that a 
computer costing less than a hi-fi system has similar features to others 
costing several thousand pounds. 


THE HISTORY OF COMPUTERS 

Since one of the major uses of the human brain is the processing of 
information, it is obvious that man from early times would have tried to 
automate this. Aids for counting and storing numbers are evident, such as 
pebble counters, marks made on sticks and abacuses, from early Chinese, 
Greek and Egyptian civilizations. A useful development was the discovery 
of some mathematical functions called logarithms which reduced the 
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problems of multiplication and division to the easier ones of addition and 
subtraction. 

Tables of logarithm values and also, slide rules, which work on a similar 
principle were both commonly used right up into the 1 970s when their 
use was superceded by the introduction of cheap pocket calculators. 

The first serious ideas for automatic computation were conceived by 
several mathematicians independently in the early nineteenth century. 
These people, however, had the problem that their ideas were over one 
hundred years ahead of the necessary technology that they would require. 
Some of the best ideas were introduced by Charles Babbage who decided, 
while involved in the tedious process of checking astronomical tables that 
methods in automatic computation were required. One of Babbage's 
developments was based on the principles used in automatic looms which 
were able to weave complicated patterns by sensing, mechanically, the 
formations of punched holes in control cards. Babbage saw this idea as 
being suitable for storing other types of information. He came up with 
several ideas for mechanical machines which kept a record of data and 
allowed mathematical operations to be carried out on them. 

In the next one hundred years, several electromechanical machines were 
designed and constructed but it was not until 1 946 that the first 
electronic computer was produced at the University of Pennsylvania. This 
device was called ENIAC (Electronic Numerical Integrator and Calculator) 
and contained over 1 8000 thermonic valves and diodes which occupied 
1 40 square metre's of floor space. A mathematician, John Von Neumann, 
who worked on the ENIAC project devised the principles of computer 
systems which are still in use today, in the previous electromechanical 
machines, the instructions - calculations and the like - that were carried 
out on the data were read in as required; thus the speed was limited by the 
rate at which the instructions could be read. Von Neumann decided that 
the instructions should be coded and stored in the computer along with 
the data; this enabled calculations to be carried out electronically at 
speeds which were many times faster than those previously achieved. 

Von Neumann's basic ideas included the main principle of present-day 
computing: input of data; processing; followed by output of results. He 
was also responsible for the "architecture” of computer circuitry that has 
survived to this day: memory for storage of data and processing 
instructions, and the use of a Central Processing Unit that steps through 
the instructions, sequentially. In fact, such a design is still called a Von 
Neumann machine. 

Today the ENIAC machine could be miniaturized onto wafers of silicon 
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less than 3mm square, containing thousands of microcircuits in the form 
of integrated circuits. It is, howeverthesame ideas of John Von Neumann, 
i.e. Input, Storage, Processing and Output that are used in today's 
computers. 


THE PRINCIPLE COMPONENTS OF A COMPUTER 
SYSTEM 

Briefly, a computer may be described simply as an electronic device that 
utilizes a stored list of given instructions. This stored list of instructions 
that is continually mentioned is called a program, the person who writes 
the instructions is called a programmer and the act of writing the 
instructions is called programming. Note that it is standard to use the 
American spelling of 'program' ratherthan the English version 'programme'. 

Sometimes the instructions are referred to as software while the actual 
physical components of the system are called hardware. When computers 
were first produced, the cost of the software was relatively cheap in 
comparison to the expensive hardware. Nowadays, this has reversed 
because the hardware has become cheap and reliable due to mass 
production and miniaturization while the labour costs of programmers 
who are developing more complicated software have increased. 

We shall now look in detail at the hardware common to any computer 
system. 

Recapping from the previous section, a computer is able to receive, 
memorize, manipulate and return information. The specific components 
that are required in such a system are shown in Fig 1.1. 

An analogy to a computer system is the human being who uses five 
senses to receive information, limbs and voice to return information and a 
brain to memorize and process the information. Although a human can 
undertake much more complicated tasks than a computer, the computer 
has the ability to process information many times faster and it also never 
forgets what it has been told. It is vital to realize from the beginning that a 
computer is relatively stupid in so far as it can never think for itself - it is 
only capable of doing what has actually been specified in a given program. 

When a computer makes an error it will always be the fault of the 
programmer unless, of course, there is a fault or "bug” in the software 
supplied with your machine. This is always a convenient excuse! 
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Figure 1.1 The Principle Components of a Computer System 

It probably comes as no great surprise to the reader that a computer is 
useless unless it receives some information that it can understand. The 
transfer of such information is undertaken through the means of an input 
device, examples of which include a keyboard, a punch card reader, 
magnetic tape reader etc. 

Similarly it is pointless in letting a computer process this information if we 
cannot access the results from the machine; thus information may be 
transferred from the computer through output devices, examples of 
which include a visual display unit (television screen), punched paper 
tape, a line printer etc. Devices that are capable of both input and output 
are called Input/Output (or I/O) devices. 

Since a computer could not operate on information that it cannot 
remember, there is an actual hardware component whose function is to 
store all the data held in the system. This unit is called the memory. The 
best analogy to a computer's memory is the visualization of a long 
sequence of storage boxes or cells each identified by a unique number 
commencing with zero and incremented by one each time, (imagine the 
lockers at a railway station or the valuables boxes in the vaults at banks). 
The label of each storage box or cell in the memory is called an address. In 
each box or cell a number may be stored. In the case of most personal 
computers, including the Commodore 64, this numbermust bewithinthe 
range of 0 to 255 inclusive. 

The standard Commodore 64 contains two different types of memory. 
These are read only memory (ROM) and random access memory (RAM), 
the difference being: 


ROM 

RAM 

is memory that is preprogrammed 
when manufactured with permanent 
data. 

The contents cannot be changed 
by the computer used. 

is general purpose memory in 
which data may be stored and then 
retrieved when required. RAM 
loses its contents when the power 
is switched off. 
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When a number is retrieved from either ROM or RAM the contents of the 
appropriate cell remain unaltered. When a number is stored in a cell within 
RAM, the previous contents are overwritten and lost for ever. You can not, 
however, store new data in a ROM. As an example consider the following 
two sections of memory, one ROM and the other RAM and see what 
happens when an attempt is made at storing a value in a certain cell: 


ROM RAM 

Unsuccessfully trying to store 69 Successfully trying to store 69 in 
in address 1030. address 17223. 


Addres¥| 

1029 

1030 

1031 

^^AddreW 

CM 

CM 

CM 

CO 

CM 

CM 

1^ 

CM 

CM 


Contents 

105 

23 

215 

~~s 

^Contents 

255 

77 

133 

$ 

results in results in 

Address 

! 1029 

1030 

1031 

^ Address 

17222 

17223 

CM 

CM 

1^ 


Contents 

> 

105 

23 

215 | 

^(Contents 

255 

69 

133 

i 


Figure 1.2 Storing Values in RAM and ROM 


In addition to numbers, it is possible to store characters and program 
instructions by representing them as numerical values; these values are 
known as character codes and instruction codes. 

Apart from storing a user's program and its associated data, a section of 
the computers memory is reserved for system software. System software 
is a program that is stored permanently in the computer and is used for 
controlling all the operations of the computer system. This software must 
be permanent and not affected either by switching the power off or by 
changing the program instructions, so a computer manufacturer always 
stores system software in ROM. 

One final comment about memory - for the time being - is on quantities of 
storage. When referring to a size of memory the abbreviation k is 
frequently chosen to represent 1 024 cells of memory. 1 024 is 2 raised to 
the power of 10. For example, if we read about an 8k program it will 
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require 8 x 1 024 cells of memory. If the quantity of memory supplied with 
the computer is insufficient it is possible to connect (or interface) 
additional memory which is called external memory. 

Referring back to figure 1.1 you will see there is a component in a 
computer system called the arithmetic and logic unit. Its job is to evaluate 
any mathematical expression involving addition, subtraction, multiplication 
or division (arithmetic) and also to test if numbers are positive, negative or 
equal to zero (logic). While the need for the arithmetic function is fairly 
obvious, the logic function is required so that the computer can make 
decisions and know what actions to perform next. 

The remaining component in the computer system is the control section 
which organizes the operation of the computer actions; control keeps 
track ofwhat instructions are beingobeyed and undertakes theoperations 
specified by each instruction. One aspect of this section is that, normally, it 
causes each instruction to be processed in turn which is, you'll remember, 
what Johnny Von Neumann decided! 

Having taken a quick browse through the basic hardwarethatall computer 
systems contain, we shall now examine the different types of software 
and see how a computer copes with it. When the instructions in a program 
are obeyed, the program is said to have been executed. 


TYPES OF SOFTWARE AND THEIR EXECUTION 


Earlier it was pointed out that the cells in the computer's memory could 
store programs by representing them with unique numerical values; for 
example the code to add two values together on a particular computer 
might be 35. Other codes would be used for other operations. Since a 
program would contain more than one instruction for it to be of any 
practical use, such a program might look like this: 

35 27 133 21 1 23 39 5 221 100.etc.... 

Obviously this program is meaningless to anyone who has not been told 
what instructions each value represents. This type of program is known as 
a machine code program and although it may seem tedious and difficult to 
use, computer programmers in the days of the first computers had no 
option but this type of programming. It soon became obvious to the 
programmers that it would be more efficient for them to use codes that 
bore some resemblence to the instructions (such as "ADD") that they 
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refer to. At this stage it is important for the reader to realize that a 
computer can only ever understand programs that are in the machine code 
format; thus if a program is written with instructions referred to by 
different codes it must at some stage be translated into the equivalent 
machine code program. The translation is accomplished by yet another 
computer program - ultimately, written in machine code. 

The next stage in the advancement of software was the introduction of 
assembly programs. These replaced the machine code instructions like 
35 or 1 69 by abbreviations for the instruction that the code represents, 
such as for example LD for Load, ADD for Addition, SUB for Subtraction 
etc. It takes no imagination to realize that an assembly program would be 
easier to write, read and comprehend than a machine code program. 

These abbreviations, which are commonly referred to as mnemonics, can 
then be converted into their corresponding machine code values by a 
section of software called an assembler program and then the machine 
code version can be used as before. So long as machine code works, the 
computer doesn't care where it came from! 

A further advance in software since the late 1950s has been the 
development of several sophisticated programming languages known as 
high level languages. 

There are many different ones, the most common being FORTRAN, 
ALGOL, COBOL, Pascal, CORAL and BASIC. The choice of which language 
to use depends usually on the application. For example, a business 
application would probably use COBOL, a scientific application might use 
FORTRAN and an application that required results to be produced within 
strict time limits could well use CORAL. Unlike assembler programs, the 
codes in high level languages do not correspond one to one with the 
machine code values but, instead, allow the coding to resemble the nature 
of the problem to be solved. For example, requiring a message "CORRECT" 
to be output if the answertoa question is 99 might in a high level language 
be writen as: 


INPUT answer; 

IF answer = 99 

THEN OUTPUT "CORRECT"; 

STOP; 


It should be evident at this stage that a high level language, when 
compared to the other types of software, is by far the easiest for 
readability. As with assembly programs, for a computerto understand the 
code of a high level language it must first be translated into its machine 
code equivalent by a special software program. It might be reassuring at 
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this stage to know that you are totally isolated from this translation 
process - you do not need to know how this process works - just that it 
does. All we'll say on this subject is that there are two methods used for 
translating high level languages into machine code versions. The first 
method uses software called a compiler which converts the whole high 
level language program into machine code once and for all and then it is 
the machine code version that is used every time. The second method, 
which is used by the Commodore 64 uses software called an interpreter 
which converts each small part of the high level language program into 
machine code as it is needed. Interpreters are slower than compilers, but 
generally easier to use on a personal computer. 

That concludes the initial chapter in this book and by now you should have 
started to obtain a grip on the basic principles of what a computer is and 
how it functions. In the next chapter we shall take a look at the 
Commodore 64 taking notice of its particular components and seeing 
how it resembles the general computer system as just described. Building 
on this general introduction, the reader will then be taken on a programming 
course leading up to come of the most advanced techniques that may be 
used on the Commodore 64. 
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CHAPTER 2 


INTRODUCING THE 
COMMODORE 64 


Having studied the general basic concepts of a computer system we shall 
now take our first general look at the Commodore 64 system. The 
standard Commodore 64 looks extremely elegant and resembles a 
previous Commodore computer known as the VIC-20. It is supplied in a 
grey casing approximately 400 x 200 x 80mm and contains a brown 66 
moving-key keyboard with the layout of the keys in the standard 'qwerty' 
typewriter arrangement. 

The Commodore 64's central processing unit (CPU) is a 6510A and is 
responsible for controlling all the operations of the computer. This is a 
relatively low cost processor suitable for small systems and is a development 
on the 6502 used in previous Commodore systems. The Commodore 
64's memory comprises of 64K of RAM, from which the name of the 
machine arises, with an additional-20K of ROM containing software for 
the operating system, the BASIC interpreter and the character set. 

To display information, the Commodore 64 requires either an ordinary 
domestic colour or black and white television set, although on the latter 
the colours will naturally appear as shades of grey. A lead is supplied 
which carries the TV signal from the video socket found at the rear of the 
Commodore 64 to the aerial socket of the television; reception is received 
at approximately channel 36 on U.H.F. When switched on, the display 
screen will consist of 25 rows of 40 columns with the central area 
appearing dark blue and the screen border and characters displayed being 
a lighter blue. The graphic features of the Commodore 64, although 
complex to use are some of the best available. It is possible to program 
using a 320 by 200 dot (or pixel) high resolution display and to define 
high resolution shapes called sprites that can be made to move, expand, 
contract, pass in front of or behind each other and to detect collisions. 

At the rear, and the right hand side of the Commodore 64 is a multitude of 
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connectors which are used for interfacing to other components. The 
Commodore 64 when launched had the advantage over other new 
systems that a proven range of printers, disc drives, joysticks etc. had 
already been developed for the VIC-20; such peripherals could also be 
used on the Commodore 64. The sockets at the side are labelled 'control 
port 1' and 'control port 2' and are used for connecting to joysticks or light 
pens. The edge connectors at the back are used for interfacing to the 
cassette interface and other I/O cartridges. Of the two DIN sockets that 
are present, one carries signals for audio and video output and the other, 
which is called the serial port is used for connection to the VIC printer or 
VIC disc drive. The cassette recorder used for storing programs on normal 
cassette tape is the C2N Datasette which is also used by the VIC-20. The 
data transfer system uses an advanced recording method which is not 
compatible with other computer systems. You can not easily use a normal 
domestic cassette recorder. 

An excellent feature of the Commodore 64 are the sound generation 
facilities which use three independently controlled oscillators. Although 
the complex sounds produced are emitted from the loudspeaker of the 
television set, the signals are also present at the DIN socket mentioned 
previously and so they may be recorded, amplified or played through an 
external speaker providing the appropriate equipment is available. Commodore 
claim that their machine can match the sounds produced by some of 
today's most sophisticated electronic synthesizers. 

The standard programming language used by the Commodore 64 is 
Commodore's Version 2 BASIC which is used on both their VIC-20s and 
their later PETs; this does, however, lack user friendly commands for 
controlling the extensive graphic and sound facilities. Tests show that 
although the Commodore 64 is slightly slower at executing BASIC 
programs than the VIC-20 it is very good when compared to its major 
competitors. Since Commodore has retained the same programming 
language it should be reasonably simple toconvert VIC-20 software to run 
on the Commodore 64. 

Our next step is to switch on ourCommodore 64 and start writing ourfirst 
programs. 
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CHAPTER 3 


OPERATING YOUR 
COMMODORE 64 


SWITCH ON 

To switch your Commodore 64 on and start it working, there are two 
connections which have to be made: 


1) Connect the power supply provided to the socket marked 'POWER' 
and switch on, the red L.E.D. (light emitting diode) on the top 
should light up. 

The power supply should be 9 volts at 1.0 A unregulated as 
supplied by Commodore. 

2) Connect the television aerial socket to the video socket found at the 
rear of the computer with the cable provided. The television should 
then be tuned to receive the best reception which is close to 
channel 36. When the screen clears to a steady picture the 
message 


* * * * COMMODORE 64 BASIC V2 * * * * 

64K RAM SYSTEM 38911 BASIC BYTES FREE 


should appear. This tells us which version of BASIC our computer is 
using and how much memory we have available for a users 
program. Your Comodore 64 is now ready and waiting to be given 
an instruction. 




Mains Electricity Supply. 




DATA- 

SETTE. 


Video/ Audio 
Output. ^ 

Serial Port ^- 

(disc drive/printer) 

User port 



Control ports. 


Figure 3.1 The Commodore 64 Computer System 



Figure 3.2 The Commodore 64 Keyboard 
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The Keyboard 


Now that we have our computer set up, the next stage is to familiarize 
ourselves with the keyboard which may be slightly different from those 
you have seen before. The keyboard of the Commodore 64 works very 
similar to that of a standard typewriter except that some keys have special 
functions or additional symbols associated to them; you should only 
require about an hour's practice before the use of the keyboard becomes 
second nature. 


There are in fact two modes that the keyboard can be in. At switch on, the 
keyboard is in Upper Case/Graphic Mode in which case everything is 
automatically typed in capitals. The graphic characters situated on the 
front of the keys are accessed by pressing the key with either ^ for the 
left hand character or KRnai for the right hand character. 

Press 19 


Press Q & Ham 


Press 


D & 3 



Figure 3.3 


By pressinafrQ and jsfflHj simultaneously the keyboard switches from 
Upper Case/Graphic Mode to Upper/Lower Case Mode. In this case the 
keys return lower case characters when pressed individually, upper case 
characters when pressed with MSIIJI and as before, the graphic character 
at the front left of the key when pressed withf 


Pressing Hj and MSliai again will switch back to Upper Case/Graphic 
Mode. 


You will probably have noticed a flashing square on the display screen, this 
is known as the cursor and it indicates the position on the screen where 
the next character you type will be displayed. We shall learn later how to 
control the position of the cursor so that we can choose where on the 
screen to display our information. 

The keyboard has the facility for the user to 'type ahead' by storing up to 
ten key presses. The characters corresponding to the keys are stored in a 
section of memory called a bufferand kept in theorder of 'first in,first out'; 
such a structure is called a queue. When control needs to know what key 
has been pressed it looks in the buffer, reads the first key present and then 
deletes it, which makes room for future keys. This idea enables very rapid 
typing to be undertaken without losing keyboard input. 
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We shall now quickly examine the keys with specific functions; the keys 

will be mentioned again in more depth when appropriate. 

IslailkJfll - tells the computer to accept all the information 

that is present on the line indicated by the 
cursor. It means "I've finished typing my input". 

-stops execution of a BASIC program. 

- when pressed simultaneously with MMii 
resets the computer to its 'switch on' state. 

anal - when pressed simultaneously with a 

i) digit key 'V to '8' turns the colour of future 
displayed text to the colour on the front of the 
key. 

ii) digit key '9' or '0' turns on/off reverse video. 

iii) certain other keys will have specific uses by the 
computer, other remaining keys may have functions 
defined in a program. 

aaiai - i) in Upper Cases/Graphic Mode accesses right 

hand graphic symbols. 

ii) in Upper/Lower Case Mode accesses the upper 
case characters. 

iii) other uses with certain specific function keys. 

- when pressed simultaneously with US 

i) 5ffffgl alternates from one keyboard mode to 
another. 

ii) graphic character key returns symbol situated 
on the front left. 

iii) digit key '1' to '8' accesses alternative set of 
colours. 




resets the cursor position to the top left hand 
corner of the screen; if pressed simultaneously 
with the screen is cleared also. 

used for moving the cursor position and the 
position of data to the immediate right of the 
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cursor. As we shall soon, these keys are very important when editing 
programs. 

We shall now take a look at the Commodore 64's BASIC programming 
language. 

The Structure of BASIC 

The programming language used by the Commodore 64 is just one of the 
many versions of the BASIC language (Beginners All-purpose Symbolic 
Instruction Code) that are now available. This simple language was 
designed originally for beginners to computing but has since become one 
of the most popular computer languages. Although efforts were initially 
made to standardize the statements in BASIC, there has recently been a 
tendency for computer manufacturers to produce versions of BASIC with 
statements that are unique to their machine. As a result there are some 
statements available on other computers that are absent from the 
Commodor 64 and vice-versa. 

A BASIC program is made up of lines, each containing one or more 
instructions, preceded by a line number, which in the case of the 
Commodore 64 lies between 1 and 63999. The program statements are 
stored in the order of their line numbers and this is the order in which they 
are obeyed or executed. Thus, if a line is required to be inserted for 
execution between two lines already in a program, the new line must 
commence with a number that is between the two numbers of the existing 
lines in the program. 

It is possible to have more than one statement associated with a certain 
line number. This is achieved by entering the particular statements after 
the line number in the order of their required execution and by separating 
them by the colon symbol. 

Entering a Program Line 

To show how a program is entered into the Commodore 64 we will 
consider the following example which consists of one simple statement: 

10 PRINT "CBM" 

When executed, the statement 'PRI NT will tell the computer to display all 
thecharacters specified within the quotation marks, i.e. inthis case'CBM'. 

Enter the program into your Commodore 64 by pressing the following 
keys. At this point the computer is said to be in command or direct mode. 
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First type the line number of the statement, i.e. 1 0 


1 I 0 


For clarity a space is inserted after the line number. 


SPACE BAR 


The BASIC keyword PRINT is typed. 


N I T 


For clarity again, a space is inserted after the keyword. 


SPACE BAR 


The data to be displayed is given 
& 

And finally, to accept the program line, press 


SHIFTEI 2 I C I B I M I SHIFT El 2 


RETURN 


Now the computer contains a program consisting of a single line. To 
execute it type RUN. 


R I U ■ N 


(followed by RETURN) 


It is important that no other characters are on the same line as the RUN 
statement. 

The program is then executed and the Commodore 64 goes into program 
mode. 


When the instructions contained in line 1 0 have been obeyed the letter 
'CBM' should appear at the next line on the screen and the message 
'READY' is displayed. The 'READY' message is known as a report and in 
this case tells us that the program was executed without any problems 
and no errors were detected. Other reports will be displayed when errors 
occur and give clues to what the problems are; often the line number 
where the error occurred is also displayed. After a report has been 
displayed, the Commodore 64 will have returned to command mode and 
will wait for further instructions. 


Errors 

When a program fails, the error which caused the problem can be either a 
syntax error or a logical error. A syntax error occurs when the grammar of a 


16 










statement is wrong, for example if a required comma is missing. A logical 
error occurs when the programmer has made an error in his ideas of the 
program logic, e.g. attempting to divide by zero. Once an error has been 
located in a program we need a method of changing the incorrect 
statement to its required form; this is known as editing. 

Editing Your Programs 

Even the most experienced readers make errors in their programs and 
require to make some amendments. The most simple method isto re-type 
the faulty line using the same line number as before and this, when 
entered, will over write the original line. Thus, a very simple method for 
removing u nwanted lines from a program is to type just the line number 
followed byCSiSSZ)- Similarly, additional lines may be in serted by typing 
the line number followed by the statement and Isiailhlfll , and control will 
take the line and automatically sort out the position of the new line. 


There is however a more convenient method. The Commodore 64 
contains what is called a screen editor which basically means that 
alterations can be made directly to a program line displayed on the screen 
by moving the cursor to w here the c hange is required and typing the 
amendment on top. Pressing EBGEH3B1 will read the whole line and replace 
any original version. 


To use the screen editor type LIST (followed by liUHIflfll of course) and 
the program currently stored will be displayed on the screen. 


PressingU^j||orHjgJj|with or without MSlIM will move the cursor about 
the screen in the enaction shown on the key. If the key is continually 
pressed it will repeat itself. 


When the cursor has overlayed the position requiring an alteration, the 
change can be made. Pressing any character key will now overwrite what 
was originally displayed. Also, characters may be deleted from the screen 

by UifU and room can be made by the inserting of spaces with 


SHIFT 


When a change has been made press i3aili;iflB and the new line will be 
accepted by the computer. Once all the alterations have been made type 
LIST again and check that the new program is correct. Make sure that no 
'stray' characters are on the same line as LIST or the e rror rep ort 7 
SYNTA X ERROR' will be given. A safe procedure is to type IdsilJI and 
which clears the screen and allows LIST to be typed on a fresh 
line. 


CLR 

HOME 




If a line number is overwritten with a different line number, a new line 
identical to the original iscreated butthe first line is left untouched. Thus if 
several similar lines have to be entered it may be quicker to type it in for 
one line and then edit the line numbers. 

Note that the computer can only read a maximum of two screen lines at a 
time. Thus if you try to enter a line consisting of more than eighty 
characters the extra will be lost. 

Having looked at both computer systems in general and your own 
Commodore 64, it is now time to get down to BASICs!! 


18 



CHAPTER 4 


COMPUTER ARITHMETIC 


While everybody realizes that a computer can handle very complicated 
arithmetic expressions it is a common misconception for people to think 
that this is a simple task - in fact it probably is one of the hardest!! There are 
two main reasons forthis, the first being that a computer is expected to be 
able to cope with a vast range of numbers and the second that an 
individual address in the computer memory is restricted to hold a whole 
number between 0 and 255 inclusive. It is, however, comforting to know 
that when a high level language is used, a programmer need not have any 
knowledge of the complicated methods used to evaluate his arithmetic 
expressions as this is undertaken authomatically by a section of software 
stored in the system software. 

Those readers who have little experience in mathematics have probably 
never given a great deal of thought to the many notations in which 
numbers may be written. For example, the first three different types of 
numbers we ever learned about were whole numbers, fractions and 
decimals. In a similar fashion, there are three particular notations that we 
shall now consider all of which are commonly used in computing. You will 
recognize the first two notations although the names given to them might 
be new. 

1) INTEGER - Integers, commonly called whole numbers, are numbers 
which are a sequence of digits which do not involve a decimal point or any 
fractional component. They may be either positive or negative, e.g. -1 56, - 
22,-1,0, 1,2, 69. In Commodore 64 BASIC, integers are restricted to the 
range ±32767 

2) REAL - Real numbers are a sequence of decimal digits with a single 
decimal point either at the end, the beginning or between two digits. The 
digits to the left of the decimal point are weighted in positive powers of 1 0 
and form the integer component of the number. Likewise the digits to the 
right of the decimal point are weighted in negative powers of 1 0 and form 
the fractional component of the number. Real numbers may be positive or 
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negative, e.g. -2.3, 0.4, 21.025, .125, -0.275 


To illustrate this idea: 


617.105 


Negative powers 


of 10 | 


Positive powers of 10 < 


..ML 5 x 10- 3 = 5 x 0.001 = 0.0 

I- 0 x 10- 2 = 0 x 0.01 = 0.0 

1 - 1 x 10- 1 = 1 x 0.1 = 0.1 


005 

00 


7 x 10° = 7 x 1 
1 x 10 1 = 1 x 10 
6 x 10 2 = 6 x 100 


= 7.0 
= 10.0 
= 600.0 


617.105 

3) EXPONENTIAL - Exponential numbers are written in a notation which 
is suitable for either very large or very small numbers. They are written 
using a real number followed by the symbol 'E' followed by an integer 
number. 'E' means "times 10 to the power of". 


Thus yEx means 'y times 1 0 to the power of x'. 
e.g. 

1.234E-2 = 1.234 x 1 0- 2 = 0.01234 
1.234E 0 = 1.234 x 1 0° = 1.234 
1.234E+2 = 1.234 x 1 0 2 = 1 23.4 


The effect of the integer following the 'E' is to indicate how many places 
the decimal point has to be shifted. A positive value means shift to the 
right and a negative value means shift to the left. 

e.g. 1E10 means 1 followed by ten 'O's i.e. 10,000,000,000 

Using this scientific notation, the largest number (the number furthest 
away from zero) which the Commodore 64 is capable of storing is 
approximately 1.7 x 1 0 38 and the smallest number, (the number nearest 
to zero) is approximately 2.9 x 1 0- 39 . Numbers are stored to an accuracy 
of between nine and ten digits. 

Having discovered the different types of numbers and notations that are 
used by computers, we shall take a look at how use them in arithmetic. 
Firstly we shall study how our data is referred to in the computer's 
memory during the execution of a program. Forthis we use whatarecalled 
variables which, incidentally, have the same function in BASIC as in any 
other high level language. Following this we shall look atthe numbers and 
variables written in mathematical expressions and see how the computer 
interprets them. 

Variables 


All pieces of data that are stored in the Commodore 64's memory, as a 
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result of typing a BASIC program are labelled by symbolic names. Such a 
name refers to the data stored at one particular location. If we consider a 
statement in which a numerical value is assigned to, for example, a name 
'MAX', then the computer would reserve a section in its memory 
referenced by the name 'MAX' and the value would be stored there. From 
then on, any reference to the variable 'MAX' would be, in fact, referring to 
the value stored in the section of memory that was specifically reserved for 
'MAX'. It is because this data may be changed that the names are called 
'variables'. 

On the Commodore 64 there are certain rules for choosing the names of 
variables. Variables can have names of any length and may consist of both 
alphabetic and numeric characters providing the name starts with a letter. 

However, in Commodore BASIC only the first two characters are recognized. 
Thus 'MAXIMUM' and 'MAGNITUDE' refer to the same variable. Variables 
that are restricted to contain integers have similar names but are followed 
by the symbol % e.g. A%. Strings of characters can be stored in variables 
which have names followed by the symbol $ e.g. A$. Variable names must 
not contain a sequence of characters that are reserved BASIC keywords. 

Valid variable names: 

numerical variable A 
integer variable A1 % 
numerical variable MAX 
string variable A$ 
string variable PT$ 

Invalid variable names: 

numerical variable 2A (does not start with letter) 
integer variable 4% (does not start with letter) 
string variable A.B (contains invalid character) 
string variable TOPS (contains keyword TO) 

Note that A, A$ and A% are unique variables. 

Algebraic Expressions 

When we are considering mathematical problems of the form 
''what is 5 + x/3 - y?" 

we are talking about the evaluation of algebraic expressions. An algebraic 
expression is a list of variables names known as operands, linked together 
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by any of the following operators: 


+ ADDITION 

- SUBTRACTION 

* MULTIPLICATION 
/ DIVISION 

t RAISED TO THE POWER OF 

- NEGATION 


For example 

A * B/C 
A t B 

-A+ B + C - 2.5 
A + B * C * 3.0 

It is important to recognize the simple difference between subtraction and 
negation. While subtraction works on two operands e.g. A - B Negation 
involves just one operand e.g. -A 

Brackets may also be included in algebraic expressions in which case the 
algebraic expressions most deeply nested by brackets are evaluated first 

e.g. 

( A + B + C ) / 3 
( A + B ) / (C + D) 

Sometimes if we choose to omit the brackets we may not achieve the 
result that we require. For example, consider the expression A + B * C 

You might think that the computer could interpret this in two ways: 

1) C multiplied by the result of A plus B 

2) A added to the result of B multiplied by C 

Thus it is important that some rules are specified giving the order that 
operands are operated on. The usual method is to give each operator a 
value known as its hierarchy or priority. The computer first considers all 
the operators with the highest priority and then evaluates them from left to 
right. It then considers the operators with the second highest priority and 
evaluates them from left to right. This continues until the whole expression 
has been evaluated. 
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The priority values for the operators used by the Commodore 64 are 
shown in Figure 4.1 


Operator 

Priority 

r 

9 

- (negate) 

8 

* 

7 

/ 

7 

+ 

6 

- (subtract) 

6 


Figure 4.1 Operator Priorities for the Commodore 64 


E.g. Calculate -4+312*6-4*9/1 2 


Taking operators of priority 9: 
Taking operators of priority 8: 
Taking operators of priority 7: 
Taking operators of priority 6: 


-4+3T2*6-4*9/12 
-4 +9*6-4*9/12 


-4 +9^-4*9/1J 
-4 +54 -3 


Gives the final answer 47 
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CHAPTER 5 


THE DESIGN AND 
DEVELOPMENT OF 
COMPUTER PROGRAMS 


We have now reached a suitable point to examine the various stages in the 
development of a computer program. A beginner to computing should 
show more concern in learning the skills in program design than worrying 
about mastering all the features of a particular computer language. Even a 
professional computer programmer would not get straight down to the 
coding level and expect to produce a program that functioned perfectly 
correctly and contained no logical errors. 

Program development may be split up into four distinct stages: 

The first stage is for the programmer to recognise the problem to be 
solved and ensure that it has been properly defined. This may seem rather 
trivial but it is a common occurrence for a professional prog rammerto find 
that the client is not totally sure of what is required. The most obvious 
method of tackling a complex problem is to split it up into smaller sub¬ 
sections which may be considered independently as separate problems. 
This also enables errors and problems with the complex problem to be 
easily located. 

In the second stage the programmer has to recognise the factors in the 
problem that are liable to vary (i.e. the variables) and then find the 
mathematical relationships that occur. By using his skill the programmer 
can analyse this information to produce a series of rules that solve the 
problem; such a method is called an algorithm. Programming skills can 
ideally be learned by studying good quality software written by experienced 
programmers in books and magazines. Some examples of algorithms and 
programming techniques will be given in this book. 
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Providing enough thought goes into these first two stages the programmer 
should find the third stage reasonably simple. This involves turning the 
algorithm into code using a computer language that the computer 
understands. It is essential that the programmer makes the program 
unambiguous. For example, it is no use telling the computer to perform 
some operation on a pieceof data if the computerdoes not know whatthis 
data is, or telling the computer to continue at a certain point in the program 
if that point does not exist. The next few chapters of this book details the 
particular features of the language used by the Commodore 64 and 
demonstrates how algorithms may be coded efficiently. 

The final stage is for the programmer to test the program to ensure that it 
functions as it was required to do. Through testing, a programmer may 
detect errors but unless the program is tested using all feasible input data 
and with all possible paths in the program flow, the absence of errors is not 
guaranteed. Taking, for example, just the variability in numerical input, the 
range of data is so vast that total testing is virtually impossible. Thus a 
programmer should choose selected input data that will take different 
paths in the program flow. Incidentally, any errors that are found during 
testing are often referred to as bugs and the task of locating and solving 
these errors is called debugging. 

Flowcharts 

The end result of the design of an algorithm will be a series of instructions 
that are obeyed in a specific order, this normally being in the sequence 
they are written. It is, however, possible for the algorithms to include 
decisions and jumps which causes the execution of the algorithm to 
proceed with different instructions. In orderto cope with the programflow 
in complex algorithms that contain numerous jumps and decisions, some 
programmers like to draw diagrams called flowcharts. Flowcharts contain 
the instructions of the algorithm written within symbols of differing 
shapes and are linked together by flowlines or arrows to indicate the 
sequence of operations. Types of symbols drawn are shown below, their 
use differs depending on the type of instruction it represents. 


- any process function causing a change in 
rnULhob information or location of information. 



- a switching operation that causes one of a 
number of alternative paths to be taken. 
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(ZZ) 

TERMINATION POINT 


- a point in the flowchart where the execution 
starts, ends or is delayed. 


INPUT/ 

OUTPUT 


- an I/O function where information is made 
available for processing (input) or where 
processed information is returned (output). 


- where a number of operations have been 

_|_J specified elsewhere. 

PREDEFINED PROCESS 

- where flow exits to another part of the chart, 

connectors. 



for example when a flowchart cannot be 
CONN ECTOR completed on one side of paper. An identification 
number is written inside the two corresponding 


FLOWLINE 


- direction of program flow. 


For example, the following flowchart shows the stages in the process of 
making a mug of coffee. 



Figure 5.1 (—- End -3 
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To demonstrate the development of an algorithm we shall take as an 
example the problem of finding the square root of a number i.e. finding a 
value that when multiplied by itself gives the original number. There is in 
fact a command on your Commodore 64 that returns the square root of a 
number but the algorithm shown below is used by the majority of 
computers and calculators for finding square roots. The algorithm starts 
by making a guess at the result and then proceeds into a loop which 
continually arrives at a more accurate result by using the value previously 
obtained. The more accurate value is obtained by finding the average of 
the result obtained plus the value that, when multiplied by the result 
obtained, gives the number whose square root is required. If this seems 
rather complicated look at the formula below where x is the number 
whose square root is required, r-, is the nearest root so far obtained and r 2 
is the new root. 

Then r 2 = Vi (h + x) 

* ~\ 

For example, if we require the square root of 25 and wethinktheanswer is 
about 4.5 then a more accurate value is 

y 2 (4.5 + 25 ) = 5.03 
4.5 

Continually repeating this process will eventually return the value 5. The 
algorithm should terminate when the root obtained is within an acceptable 
error limit; this is when (r 2 * r 2 ) - x is less than some small value i.e. when 
the difference between the root squared and the original number is 
negligible. 

It is important that the algorithms takes into account that square roots 
cannot exist for negative numbers. 

To some readers it may not be apparent why the algorithm works; an 
explanation has been omitted as it involves mathematics which is 
unimportant to the Commodore 64 user. It is howevercommon practice in 
commercial programming for the algorithm to be devised by a different 
person to the one that actually codes the program; it is sufficient for the 
programmer just to know that the algorithm works. Therefore, you may 
now be in the position of many a commercial programmer. 

Ouralgorithm for finding square roots can nowbedrawn in flowchart form 
as in Figure 5.2. From this the problem can be coded using a language that 
the computer to be used can understand. 
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CHAPTER 6 


Commodore 64 BASIC - 
Statements/Commands 


As we saw earlier, a BASIC program is a list of numbered lines each 
containing one or more statements. A statement can do one of two things. 
It may either just describe some item of information or it may tell the 
computer to undertake a specific operation. The next section of the book 
deals with the following statements which are available on the Commodore 
64: 


The Commodore 64 Statements 


CLOSE 

GOTO 

PRINT 

CLR 

IF....THEN 

PRINT# 

CMD 

INPUT 

READ 

CONT 

INPUT# 

REM 

DATA 

LET 

RESTORE 

DEF FN 

LIST 

RETURN 

DIM 

LOAD 

RUN 

END 

NEW 

SAVE 

FOR...TO...STEP 

NEXT 

STOP 

GET 

ON 

SYS 

GET# 

OPEN 

VERIFY 

GOSUB 

POKE 

WAIT 


This list of statements can be subdivided into the following categories:- 

1) System Commands - these are unique from the other four groups in 
that they are not usually used within a program. They are used in the 
operation of the computer system and are accessed by typing the required 
statement without a preceding line number. 

2) Assignment Statements - these are used to allocate either numeric 
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values or a sequence of characters to specific sections or locations in the 
computer's memory. 

3) Input/Output Statements - these are used to allow information to be 
entered into (input) and obtained from (output) the computer. 

4) Control Statements - these are used to control the sequence in which 
the program statements are executed. 

5) Other Statements - these comprise the repertoire of Commodore 64 
BASIC excluding groups 1 to 4. 

Syntax Notation Used 

For each BASIC keyword that is introduced, the syntax will be stated by 
using the following notation: 

i) BASIC keywords are written in capitals. 

ii) variable data is written within angle brackets '< >' 
in) optional data is written within square brackets []' 
iv) data items which may be repeated are followed by ... 

Note that all the programs that are given have been spaced out for clarity; 
experienced programmers may wish to compress them so that they use 
up less memory by, for example, leaving out spaces, semicolons etc. 


SYSTEM COMMANDS 

The following statements are 'system commands' - their use is of greater 
importance when entered without a preceding line sothatthey are obeyed 
immediately. They may be used in a program but this use is very limited. 

RUN - The RUN command will clear all existing variables and execute the 
current program stored. A line number may be specified in which case the 
execution will commence from that line. 


syntax: RUN/Cline number>/ 


CONT - The CONTmue command will restart the execution of a program 
which has terminated from the position where it had stopped. In the case 
that the program had been stopped due to an error, CONT will cause the 
error report 7CAN'T CONTINUE' to be given. 
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syntax: CONT 


NEW - The NEW command will delete all existing variables and any 
programs from the computer. 


syntax: NEW 


LIST - The LIST command enables the program currently stored in the 
computerto be displayed on thescreen. When the program contains more 
information than can be displayed, the screen will sc roll upwards; the 
scrolling may be slowed down by pressing down MlrflB . The LISTing may 
be terminated byl~~ 


syntax: LIST /<first line>/ - /<last line>/ 


It is possible to restrict the LISTing to display just a sub-section of the 
program stored; this is done by specifying the first line required followed 
by and then the last line required. If the first line is omitted, control will 
list from the first line present, likewise if the last line is omitted control will 
list until the last line. 

OTHER SYSTEM COMMANDS 

The three remaining commands, LOAD, SAVE and VERIFY are used for 
communicating with either the cassette interface or disc drives; we shall 
meet them again later and study them in more depth. 

ASSIGNMENT STATEMENTS 

LET - The LET statement is used to assign either a numerical value to a 
numerical variable or a sequence of characters to a string variable. It is 
important to remember that the original contents of the variable will be 
overwritten and lost for ever. 


syntax: LET <variable> = <expression> 


Note that the omission of the word LET, which would use valuable 
memory space, is perfectly valid. 
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examples:- 


(i) 10 LET A = 99 

A value of 99 is assigned to variable 'A' 

(ii) 10 LET MZ = 1.25E-3 

A value of 0.001 25 is assigned to variable 'MZ' 

(iii) 10 COUNT = COUNT+1 

Avalueof 1 is added to the value stored in variable'COUNT' andthe result 
is assigned back to variable 'COUNT'. Remember that in Commodore 64 
BASIC variables are only significant to two character positions. If the 
variable 'COUNT' did not previously exist the computer will assume that it 
had a value zero. 

(iv) 1 0 LET C$ = "COMMODORE 64" 

The sequence of characters "COMMODORE 64" is assigned to variable 
C$. 

(v) 10 N$ = "KEY" + "BOARD" 

The sequence of characters "KEYBOARD" is assigned to the variable N$. 
When strings are added together in this fashion it is called concatenation. 
But, remember that strings may not be subtracted, multiplied, divided or 
raised to a power. 

Note that, before being used, numeric variables can be assumed to be 
zero, and string variables to be null. 


READ/DATA - The READ statement is another method used for assigning 
values to variables and is particularly useful if an identical long list of data 
is required every time a program is executed. The READ statement is 
followed by a list of variables. The values or characters that are assigned to 
these variables are written in a matching list preceded by the DATA 
statement. Any number of such DATA statements are allowed and these 
may appear anywhere in the program. Before the program is executed, the 
computer searches for all the DATA statements and then remembers 
them as if they were all joined together in one long line. During program 
execution, when the computer comes across a READ statement followed 
by a list of variables, it takes as many items from the start of the DATA 
statement as are required and then assigns them in turn to the listed 
varables. Any subsequent READ statements will start from the position in 
the DATA statement where the preceding READ statement left off. 
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syntax: READ <variab!e> [,<variable>] ... 
DATA <data item> [,<data item>] ... 


For example 


(i) 10 DATA 1,1,2,5,8,13 

15 READ FI ,F2,F3,F4,F5,F6,F7 

The values 1,1,2,3,5,8 and 1 3 are assigned to variables FI ,F2,F3,F4,F5,F6 
and F7 respectively. 

(ii) 1 0 DATA A,B,C 

1 5 READ A$,B$,C$ 

The characters A, B and C are assigned to variables A$, B$ and C$ 
respectively. If the characters to be assigned include punctuation symbols, 
cursor control characters or spaces then the string should be enclosed 
within quotation marks (".") 

It is very important that the DATA statement contains the correct type of 
expression for the type of variable that the READ statement requires. 
Consider for example:- 

10 DATA 20, "THE AVENUE" 

1 5 READ A$,A 

This would cause an error report "7SYNTAX ERROR" to be displayed 
because the second variable expects the item of information in the DATA 
statement to be numeric. Note, however, that the string variable can 
accept the digits 20 to be characters rather than numbers. 

One final consideration with the READ and DATA statements is what 
happens when the items in the DATA statements are all used up and a 
READ statement still has variables that have not been assigned. Try the 
following example:- 

10 DATA 1,2,3 
1 5 READ a,b,c,d 

Here we require four items of information but have only specified three 
items in the DATA statement. Such an event will cause the error report 
"?0UT OF DATA" to be displayed. 

RESTORE - By using the RESTORE statement we have the ability to re- 
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READ the information stated in the DATA statements. On execution, 
RESTORE will set the computer to recommence READing from the first 
item of information in the first DATA statement. 


syntax: RESTORE 


example:- 

5 DATA 1,2,3,4 
10 READ A1, A2, A3, A4 
1 5 RESTORE 
20 READ B1, B2, B3, B4 

The values 1,2,3 and 4 are first assigned to variables A1, A2, A3 and A4 
respectively. The identical data is then assigned to variables B1, B2, B3 
and B4 respectively. 

This concludes the section on assignment statements that are available on 
the Commodore 64, although we shall see later that values may also be 
assigned to variables using certain 'input' statements. In the next section 
of statements we shall learn how to enter information into the computer 
and how to access the processed results by using the input and output 
statements. 

INPUT a OUTPUT STATEMENTS 

PRINT -The PRINT statement which is used to display information on the 
television screen is probably the most used I/O statement. It is followed 
by the print items which are either variables, arithmetic expressions, 
strings of characters or control characters, which as we shall see later 
affects the position on the screen and the colour of the information that is 
displayed on the screen. 


syntax: PRINT [<print item>] [<,or;> <print item>] ... 


examples:- 

(i) 10 PRINT A 

The value of variable 'A' is displayed. 

(ii) 10 PRINT AS 

The value of variable 'AS' is displayed. 

(iii) 10 PRINT "AVERAGE” 

The sequence of characters 'AVERAGE' is displayed. 
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(iv) 10 PRINT 2*5+4 

The expression '2*5+4' is evaluated and displayed. 

(v) 10 PRINT 

The absence of any print items causes a blank line to be displayed. 

It is possible to include several print items within one PRINT statement by 
separating them with either a comma, semicolon or space. Their corresponding 
effect is:- 

(i) , comma - The television screen used for output may be visualised as 
consisting of several eighty character lines, each line consisting of eight 
print zones of ten characters. A comma separating two print items causes 
the second item to be displayed at the first position in the next print zone. 

(ii) ; semicolon - A semicolon spearating two print items causes the 
second item to be printed immediately after the preceding item. 

(iii) space - A space separating two string constants or variables will have 
the same effect as a semicolon. Care should, however, be taken when 
used between a string and a numeric item as this will cause the output of 
data to cease. 

It should be noted that during the PRINTing of numerical data, all positive 
values are preceded by a space and all values are followed by an additional 
space. 

example:- 

(vi) 10 PRINT "AVERAGE'';(x+y+z)/3 

The word AVERAGE is displayed followed by the result of the expression. 

(vii) 10 PRINT A,B 

The values of variables A and B are displayed at the start of print zone 1 
and 2 respectively. 

(viii) 10 PRINT 1;2:3;4 

The digits 1,2,3 and 4 are displayed '1 234'. What would happen if the 
semcolons were exchanged for commas? - try it and see. 

We shall later learn how to use control characters within strings to control 
both the colour and the position on the screen of the information PRI NTed. 

INPUT - The INPUT statement enables us to enter either numerical data or 
strings of characters and then assigns them to a specified variable. When 
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the INPUT statement is encountered, the execution of the program halts 
until all the information that the computer requires has been entered 
through the keyboard. The computer indicates that it requires data by 
displaying a '?' symbol - the data can then be typed in and is entered by 
pressing RETURN. 


syntax: INPUT [ " < message > " ;/<variabie list> 


If more than one variable is required then they should be separated by 
commas. 


example:- 

(i) 10 INPUT X 

The program is halted and a request made for numerical data. When the 
data has been entered the value will be assigned to variable X. If X already 
exists, its previous value is overwritten and so lost. 

(ii) 10 INPUT A,B,C 

Three items are required by the program to be entered; these may be 
entered on one line separated by commas or on separate lines. In the latter 
case the ??' message is given at the start of each line to show that more 
data is expected. On the other hand, if too much data is entered the error 
report 7EXTRA IGNORED' is given, and the additional data made 
redundant. 


(iii) 10 INPUT "PROMPT ";Q$ 

The message 'PROMPT' is displayed and control expects a string of 
characters to be entered. Strings that contain the 'comma' character 
require the text to be entered within quotation marks. 

If invalid data is entered, such as charactertext instead of numerical data, 
the error report 7RED0 FROM START' is given and the 7' prompt 
reappears. Remember that numerical data can be accepted when string 
data is required since the digits may be accepted as characters. 


It is impo rtant to remember, especially when entering text, that when 
idawslflll is pressed only two screen lines are read - thus, at the most 
eighty characters may be INPUT at a time. 


GET - An excellent feature of the Commodore 64 is the ability to use the 
GET statement to sense which keys if any have just been pressed during 
the execution of the program. 
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syntax: GET <variable list> 


As keys are pressed during program mode, they are stored in a section of 
memory called the keyboard buffer. A maximum often keys can be stored 
at any one time. 

When the GET statement is executed, characters are read from the 
keyboard buffer and assigned to the variables in the variable list; as a key is 
read it is removed from the buffer, releasing space for more keys to be 
stored. If a numeric variable is specified and non numeric data is read from 
the keyboard buffer, the error report /SYNTAX ERROR' is displayed. The 
solution is to read all data as strings and then, if necessary, convert the 
characters to digits. 

The input of information using GET has the advantage over IN PUT in that it 
does not have to be followed by RETURN; but remember, unlike INPUT, it 
will not wait for you to press a key. 

example:- 

(i) 5 GET Q$ 

The first key present in the keyboard buffer is assigned to Q$. 

(ii) 10 GET A$, B$, C$ 

Three keys are read from the keyboard buffer and assigned to A$, B$ and 
C$. 

OTHER I/O STATEMENTS 

Discussion of the six remaining I/O statements, i.e. OPEN, CLOSE, CMD, 
PRINT#, GET# and INPUT# will be left until later where they will be 
featured in detail. Their use is to enable the Commodore 64 to communicate 
with external devices such as the cassette interface, disc drives, printer 
etc. 

Probably some of the most vital statements in a computer's repertoire are 
those that allow us to control the order that the instructions in a program 
are carried out. We shall now examine the 'control statements' present on 
the Commodore 64. 

CONTROL STATEMENTS 

GOTO - By using the GOTO statement it is possible to alter the usual 
sequence in which the numbered statements in a program are obeyed. 
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syntax: GOTO <line number> 
or 

GO TO Cline number> 


When the GOTO statement is executed, control jumps to the line whose 
number is specified. If this line is absent from the program, the error report 
TUNDEF'D STATEMENT' is given. 

examples:- 


(i) 10 GOTO 500 
Control jumps to line 500. 


(ii) 10 GOTO 10 

Here we have a continual loop which will go on for ever. The only way of 
stopping this is to press 


While in command mode, it is possible to execute a program by omitting a 
line number and pressing:- GOTO n where n is the line number from 
where you wish to commence. This method differs from the system 
command RUN in that GOTO does not clear the variables before 
execution. 


MAGIC CARPET 

We shall now take a short break from learning about the available BASIC 
keywords and demonstrate some of the statements and system commands 
that we have seen. Our first example is a simple three line program which 
can produce some fascinating patterns on the television screen. 


Program 1 - MAGIC CARPET 

10 REM 

15 REM % MAGIC CARPET * 
20 REM *««««=«««* 
25 REM % MRH 1/7/1ASS * 

30 rem •: 

35 REM 
40 INPUT G* 

45 PRINT G*; 

50 GOTO 45 
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After typing in the program and executing it by using RUN, enter between 
three and nine characters (you may use numbers and letters but the 
graphic characters shown at the front of the keys usually produce more 
interesting results). The string of characters is assigned to variable G$ 
which is then continually printed on the screen. When the screen has 
become full press Iflllfl to stop the program. 

BBT3 


Entering four or eight characters will cause vertical patterns to be 
displayed while entering any other combination causes diagonal patterns. 

MULTIPLICATION 


Program 2 will display the complete multiplication table for any entered 
value. When the screen becomes full, the display will scroll up one line as 
each result is given. To stop the program press 


Program 2 - MULTIPLICATION 


1 0 rem 

15 REM * MULTIPLICATION * 

25 REM * MRH 1/7/1983 * 

30 rem 

35 REM 

40 INPUT "ENTER VALUE "- NUMBER 

45 COUNT-0 

58 COUNT -COUNT+1 

55 RESULT=NUMBER*COUNT 

60 PR I NT NUMBER;" *"; COUNT RESULT 

6 5 U U T U o 0 


THE FIBONACCI SEQUENCE 

Program 3 calculates a mathematical sequence of numbers known as the 
'Fibonacci Numbers'. In the thirteenth century, an Italian mathematician 
Leonardo Fibonacci studied the vast explosion in the population of 
rabbits. He considered how the population grew, starting with just one 
pair of rabbits and assumed that it took a pair of newborn rabbits one 
month before they became fertile and could reproduce. From then on, they 
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would breed an additional pair each month after. It is assumed that no 
deaths occur in the region of time considered. 


Analysing the problem it can be seen that if the population of month n is 
P n , then: 



i.e. the new 
population 



all those alive + 
in the preceding 
month and so 
still alive 


n -2 

\ 

one more pair from each 
of those fertile i.e. those 
alive two months ago. 


It is also known that P = 1 and P 2 = 1 


The values of Pn give the 1,1,2,3,5,8,13,21,34,55 .and this is 

known as the Fibonacci sequence. 


Program 3 - FIBONACCI SEQUENCE 

10 REM #**####*##### 

15 REM * FIBONACCI * 

20 REM *================# 

25 REM *■ MRH 1/7/1983 * 

30 REM a####*#########*## 

35 REM 

48 PRINT "THE FIBONACCI SEQUENCE." 
45 Pl = l 

58 PRINT "MONTH 1 "jPIJ"RABBIT " 

55 P2=l 

60 PRINT "MONTH 2 ";P2;"RABBIT " 

65 M=2 
70 F-P1+P2 
75 M=M+1 

80 PRINT "MONTH";M;P;" RABBITS" 

85 P1=P2- P2-P 
90 GOTO 70 
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MORE ADVANCED CONTROL STATEMENTS 


FOR....NEXT 

The FOR and NEXT statements are used when we require a section of 
program to be repeated a specified number of times. When the program 
flow causes a section of code to be repeated like this - it is called a loop. 


syntax ; FOR <variable> = initial value TO terminating value> 
[STEP <increment>] 

<section of code to be looped> 

NEXT [<variable list >] ,. 


The looping is controlled by assigning an initial value to a numerical 
variable, known as the control variable, and then executing the section of 
code until the statement NEXT is found. Control then jumps back to the 
corresponding FOR statement and the control variable is incremented by 
the value specified after STEP. 

If the STEP value is positive then the looping will continue until the control 
variable is greater than the terminating value in which case control 
continues after the NEXT statement. Similarly if the STEP value is 
negative then the looping will continue until the control variable is less 
than the terminating value. 

examples:- 


10 FOR J = 1 TO 20 STEP 1 
15 PRINT J 
20 NEXTJ 

The numbers 1 to 20 are displayed. 

(ii) 

10 FOR J = 20 TO 1 STEP -1 
15 PRINT J 
20 NEXT J 

The numbers 20 down to 1 are displayed. 

If the STEP value is +1 then the FOR statement may be simplified to 
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FOR <variable> = X TO Y 

and a STEP value of +1 is assumed by default. 

FOR loops may be nested inside each other up to a maximum of nine levels 
providing they do not cross each other. 

These are perfect examples:- 


r-►FOR I = .... 
L-NEXT I 


-►FOR I = .... 

—►FOR J = ... 
r->FOR K = ... 
L-NEXT K 

-NEXTJ 

-NEXT I 


r—►FOR I = .... 
r*FOR J = .... 
L NEXT J 
r*FOR K = .... 
L-NEXT K 
-NEXT I 


This one, however, 
would cause all 
sorts of problems 
and so should be 
avoided. 


-►FOR I = .... 
►FOR J = .... 
-NEXT I 
LNEXT J 


If the control variable in a N EXT statement is omitted, the control variable 
with a FOR statement at the corresponding level is assumed. 


example:- 


FOR I = .... 


I! 


FOR J = .... 
NEXT 


NEXT 


It is possible to use a single NEXT statement to increment several control 
variables; the names of the variables should be separated by commas and 
listed in the order of the innermost nested loop first to the outermost 
nested loop. 
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example:- 


—►FOR I = .... 
—►FOR J = .... 
r>FOR K = .... 
== NEXT K,J,I 


CUBES 

To illustrate FOR .... NEXT loops. Program 4 calculates the cubes (i.e. 
raised tothe powerof 3) of thefirst 20 integers; it does however use a very 
strange method to do so. The results can be checked with the t operator. 
To demonstrate how the program works, write down the first few odd 
numbers: 


1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 

-V-* <-*-' -- v -* .- .. / 

1 8 27 64 


Notice that 

1 raised to the power of 3 is the sum of the first one number. 

2 raised to the power of 3 is the sum of the next two numbers. 

3 raised to the power of 3 is the sum of the next three numbers. 

and so on. 


Program 4 - CUBES 

10 REM MMmMMMMW** 
15 REM * CUBES * 

20 REM *-========«==«===# 

25 REM * MRH 1/7/1983 * 

30 rem 

35 REM 

40 PRINT " CUBES." 

45 M=1 

50 FOR X=1 TO 20 
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55 T=0 

60 FOR V=i TO X 
65 T=T+M 
70 M=M+2 
75 NEXT V 

80 PRINT X:"T 3 = ";T 
85 NEXT X 


Both the GOTO and the FOR....NEXT control statements execute a chunk 
of BASIC unconditionally. Here is a more powerful statement. 

IF...THEN... 

The IF statement enables the computer to become 'intelligent' and able to 
test conditions on which depending on results, different actions may be 
undertaken. 


syntax : IF condition 

or 


THEN <statements> 
THEN <line number> 


or 

GOTO <line number> 


IF the <condition> is found to be 'true'then the following statement (or 
statements, separated by :) are executed, otherwise control continues the 
program from the next present line. If the condition is 'true' and a line 
number is stated, control will jump to that particular line. 

The condition statement consists of either two algebraic expression or 
two string expressions separated by one of the following symbols:- 


SYMBOL 

MEANING 

— 

Equal to 

< 

Less than 

<= 

Less than or equal to 

> 

Greater than 

>= 

Greater than or equal to 

<> 

Not equal to 
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examples:- 

(i) A + B = C/2 

Is A plus B equal to one half of C? 


(ii) A <> 69 

Is A not equal to 69? 


(iii) X > 3 * Y 

Is X greater than 3 times Y? 


(iv) Q$ = "YES" 

Is Q$ the same as the string "YES"? 


Note - String expressions must never be compared with algebraic 
expressions. 

When comparing strings, a string is found to be less than another if it 
comes first in alphabetical order. 

When lower case characters are available, lower case comes before upper 
case characters. 


Digit characters come before all alphabetic characters. 


examples:- 

"A" < "B" 

"AA" < "AZ" 
"AO" < "AA" 
"□A" < "AO" 
"1" < "g" 


"a" < "A" 

"5" < "FIVE" 

"6" < "six" 

"six" < "SEVEN" 
"Photo < "Photos" 


We shall use this information later to write an alphabetic sorting program. 
GOSUB ...RETURN 

The GOSUB and RETURN statements enable us to re-use portions of 
BASIC several times. Consider a program where a section of code is 
required to be repeated several times; instead of continually reproducing 
identical statements they may be written once and called for when 
required. Such a section of code is called a subroutine. 
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syntax: GOSUB line number 
RETURN 


To implement a subroutine we use a GOSUB <line number> where the 
line number of the subroutine is specified. At the end of a subroutine 
RETURN must appear: this tells control to return to the line immediately 
after the line which called the subroutine. 


example:- 


10 PRINT "MAIN PROGRAM" 

15 GOSUB 100 

20 PRINT "MAIN PROGRAM" 

25 GOSUB 100 

30 PRINT "MAIN PROGRAM" 

35 GOSUB 100 

40 GOTO 1 0 


?Main Program 


1 00 PRINT "SUBROUTINE CALLED" 
105 RETURN 


Subroutine 


In this simple example the subroutine starting at line 1 00 is called three 
times. Note that it is very important never to let the program run through a 
subroutine by accident. In the example show, a GOTO statement has been 
inserted at line 40 to avoid this. 

A subroutine may also call another subroutine. A subroutine that calls 
itself is said to be recursive. 

SIMULTANEOUS EQUATIONS 

Program 5 is able to solve the pair of simultaneous equations:- 

aX + bY = c 
dX + eY = f 

where a,b,c,d,e and f are known constants and X and Y are required to be 
found. 

It can be proved mathematically that the solutions are 

X = (f * b - c * e) and Y = (c * d - a * f) 

(b * d - a * e) (b * d - a *~e[ 
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These results can easily be written as a program but care has be be taken 
when the situation (b * d - a * e) = 0 arises since a number may not be 
divided by zero. 


Program 5 - SIMULTANEOUS EQUATIONS 


1.0 R E M # % # % $ % $ # *. % # # % % % % % % 

1.3 REM % SI MULT, EONS, # 

25 REM # MRH 1/7/1983 * 

3 0 R E M # ‘‘M # % # % # $ # # W. % % # % $ $ 

35 REM 

40 PRINT "SIMULTANEOUS EQUATIONS, !! 

50 I Nr UT 11 EQURTI ON ONE < fl , £, C) •"; A , E , C 
55 INPUT "EQUATION TWO <D,E,F) :";D,E,F 
60 PRINT 

65 PRINT A;"X + M ;B;"V =";c 
70 PRINT D; "X + ";E "V = ";F 
75 0 :r B$B-~R#E 

30 IF G=@ THEN PRINT "HO SOLUTION EXISTS" : GOTO 108 
85 PRINT 

90 PRINT "SOLUTION" 

55 PR I NT " X="; < F*B-C#E) /G," V="; < C#D-A#F > /0 
100 PRINT 

105 INPUT "STOP ? (V/N) ";Q* 

110 IF Q^="V" THEN END 
115 PRINT 
120 GOTO 40 


ON 

The ON statement is used to branch to different positions in a program 
depending on the value of an algebraic expression. 

syntax : ON expression GOTO <line number> [,<line number>] . 

or 

GOSUB 
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The algebraic expression is evaluated and control is passed to the line 
number whose position in the list is the integer component of the 
expression. 

example:- 

10 ON X GOTO 50, 60, 70 

If X = 1 then control continues at line 50 

If X = 2 then control continues at line 60 

If X = 3 then control continues at line 70 

If the value of the expression iszeroorgreaterthanthe number of items in 
the list, control will proceed from the next line after the ON statement. If 
the value of the expression is negative the error report ? ILLEGAL 
QUANTITY' is given. 

And finally: 

OTHER STATEMENTS 
DIM 

It is often required to reserve a block of cells in the memory which can be 
referred to bya name (referring tothe block) anda number (referring tothe 
particular cell in the block); such a block is called an array. Control is 
instructed to reserve blocks of a particular length by the DIM (dimension) 
statement. 


syntax : DIM variable (<subscript list>) ,[<variable>] (<subscript 
list>)] .... _ 

Consider, for example 
10 DIM A(8) 


This instructs the computer to reserve an array called 'A' consisting of nine 
elements. 


A(0) 

A( 1) 

A(2) 

A(3) 

A(4) 

A(5) 

A(6) 

A(7) 

A(8) 


Each cell can store one number. When the block is declared each cell is 
initialized to zero. We may refer to any cell by the variable name followed 
bythe cell number in parenthesis. For example cell 5 is referred to as A(5). 
The term in brackets is called the subscript. The same cell could be 
referred to by A(variable) if the variable had been set equal to 5. Also 
A(algebraic expression) is valid such as A(2*X+6) but the result of the 
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expression must lie in the range specified by the DIM statement or the 
error report 7 BAD SUBSCRIPT' will be given. 

It is also possible to set up arrays with more than one subscript. 

example: 

10 DIM B(3,4) 


B(1,1) 

B( 1,2) 

B(1,3) 

B( 1,4) 

B(2,1) 

B(2,2) 

B(2,3) 

B( 2,4) 

B(3,1) 

B(3,2) 

B(3,3) 

B( 3,4) 


Such an array is called a two dimensional array; remember however that 
the cells are physically stored sequentially in the computer's memory. 

The same idea works for an n dimensional array. 

The DIM statement must only be used once for each variable otherwise an 
error report 7 REDIM'D ARRAY' is given. If an array is referenced in a 
program without it ever being dimensioned then it is assumed to have 
been dimensioned to length 1 1 by default. 

If the array variable is followed by either a % or $ sign, then, as usual the 
variables are either integers or strings respectively. 

DEF FN 

An explanation of functions and DEF FN, which is a user-defined function 
will be delayed until later when a complete chapter will specialize on this 
topic. 

CLR 

The CLR statement releases all the memory that had been reserved during 
the execution of a program. The actual program code is left untouched but 
all the variables, arrays, subroutine and FOR statement addresses, files 
etc. are deleted. 


syntax : CLR 


END 

The END statement ceases the execution of a program and displays the 
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'READY' message. Execution can be resumed from the terminating point 
by CO NT. 


syntax : END 


REM 

REMark statements are not executed by the computer but are used to 
clarify sections of a program to a reader. 


syntax : RED comment 


The comments may contain any characters as control will ignore everything 
following REM to the end of the line. 

POKE 

The POKE statement enables us to store specific values directly into 
memory cells in the computer. 

syntax : POKE <numeric 1> , Cnumeric 2> 


The statements enable two algebraic expressions to be evaluated on 
which the result of the second expression is stored at the address given by 
the first expression. The value stored must be within the range 0 to 255 or 
the error report ? ILLEGAL QUANTITY' is given. We shall see later that 
this is a very powerful statement. 

Try this next example on your computer. 

example: 

10 FOR I = 0 TO 1 5 
15 REM DELAY 
20 FOR J = 1 TO 500:NEXT J 
25 POKE 53281,1 
30 NEXT I 

Here we are changing the value stored at address 53281. By executing 
the program you will see what the data stored at this particular location 
tells the computer system. Using the same technique, what does location 
53280 hold? 

STOP 

The STOP statement ceases the execution of a program and displays the 
report 'BREAK IN LINE XXXXX' where the line number of the STOP 
statement is displayed. Execution may be resumed from the terminating 
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point by CO NT. 


syntax : STOP 


SYS 

On the Commodore 64 it is possible to execute a machine code program 
(see Chapter 1) directly instead of using the BASIC interpreter. When the 
SYS statement is executed, control will execute the machine code 
program from the address specified. 


syntax : SYS address 


WAIT 

THe WAIT statement is used to temporarily halt the execution of a 
program until the contents at a specified address are altered. This use is 
most important in I/O operations. 


syntax : WAIT address , mask 1 , mask 2 


To understand the use of WAIT, the reader will require a knowledge of 
logical operations which are not explained until later. For reference, WAIT 
will cause program execution to temporarily halt until the contents of the 
specified address exclusively-ORed with mask 2 (if present) and ANDed 
with mask 1 become zero. 
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CHAPTER 7 


THE COMMODORE 64 
FUNCTIONS 


Briefly a function can be described as a rule which relates one set of values 
to another. The value in the first set is known as the argument and the 
value in the second set is the result. The Commodore 64 has the following 
set of functions available: 


ABS 

AND 

ASC 

ATN 

CHR$ 

COS 

EXP 

FN 

FRE 

INT 

LEFTS 


LEN 

LOG 

MIDS 

NOT 

OR 

PEEK 

POS 

RIGHTS 

RND 

SGN 

SIN 


SPC 

SQR 

STATUS 

STRS 

TAB 

TAN 

TIME 

TIMES 

USR 

VAL 


Each one of these functions can be placed in one of the following 
categories:- 

(1) Simple numeric and mathematical functions - includes random number 
generator and specialized functions which have numerous applications in 
mathematics, science and engineering. 

(2) System functions - used for finding out information aboutthe state the 
computer system is in. 

(3) String functions - used for manipulating characters and text. 
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(4) Logical functions - used to linkconditional statements likethosefound 
in the IF statement. We shall also see how to use them to manipulate the 
patterns that are made when numbers are stored in the computers 
memory. 

SIMPLE NUMERIC FUNCTIONS 

INT - The INT function returns the integer component of the argument by 
rounding down. 


syntax: INT <numeric> 

example:- 

(i) 10 PRINT INT(-5.6), INT(O), INT (5.6) 

This will cause -6, 0 and 5 to be displayed. 

HIGHEST COMMON FACTOR 

Program 6 demonstrates the use of the INT function by finding the 
highest common factor of two positive integers i.e. it finds the largest 
numberthat can bedivided into both numberexactly.Try firsttofollowthe 
algorithm on paper by drawing three columns labelled A, B and C with an 
initial value in each. Follow the program and record the value of each 
variable in the corresponding column as it changes. 


Program 6 - HIGHEST COMMON FACTOR 


18 rem Mwmmmmmm* 

15 REM * H.C.F. * 

28 REM #====*«=*==:====:=* 

25 REM # MRH 1/7/1983 * 

38 REM 
35 REM 

40 PRINT -PRINT ” HIGHEST COMMON FACTOR " -PRINT 
45 INPUT 11 ENTER FIRST NUMBER MR 
58 INPUT " ENTER SECOND NUMBER MB 
55 IF R<1 OR BO THEN 40 
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60 OB :fl=C 

65 IF BO0 THEN 55 

70 PRINT :PRINT " H.C.F. IS ";C 

75 PRINT : PRINT M PRESS SPRCE BAR TO CONTINUE 11 

80 GET Kt : IF " THEN 40 

85 GOTO 80 


RND - The RND function is a RaNDom number generator which is 
extremely useful for certain games. The generator is not truly random but 
a very long sequence of numbers; this, however, is more than adequate for 
most purposes. The position in the sequence is dependent on a value 
stored in the memory called the seed. If the seed is reset to the same 
number each time RND is called, then the same random number will be 
returned. If the seed is set to an unknown value at the beginning of the 
program then the sequence of generated numbers will commence at an 
unknown position. This method of creating numbers is known as a 
pseudo random number generator. 


syntax: RND ( < numeric > ) 


On the Commodore 64, RND returns a value between 0 and 1. 


If the argument of RND is positive the number returned will be the next 
number in the sequence, while negative values re-seeds the generator. 
However, if the argument is zero then the seed will be randomised' to the 
value of the hardware clock which we shall meet later. 

example:- 

(i) 10 LET A = RND(O) 

The seed is set to the value of the clock and a random number between 0 
and 1 is assigned to A. 

DICE DISTRIBUTION 

Program 7 represents a dice being rolled 100 times. This is achieved by 
obtaining a random integer between 1 and 6 by using INT(RND(0)*6+1 ). 
The program also calculates the average and variance (a mathematical 
value for how wide the distribution is). 
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Program 7 - DICE 


10 REM #****#**•*#*##**** 

15 REM * BICE * 

20 REM 

25 REM # MRH 127/1983 * 

30 PEN 
35 REM 

40 PRINT -PRINT » DICE DISTRIBUTION 
45 S=0 'SS=0 


•PRINT 


50 FOR X=1 TO 100 
55 D= I NT < RND < A ) #6+1} 

00 P^.TTi ; 88=SS+D#B 
65 PRINT D;" 

70 NEXT / 

75 R-S/100 

80 PRINT -PRINT " AVERAGE ";A 

85 V ~SS/100-fi^R 

90 PRINT 'PRINT ” VRRIRNCE ";V 

35 PRINT -PRINT " PRESS SPACE BAR TO REPEAT 

100 GET K$ :IF K$=" " THEN 40 

105 GOTO 100 


MATHEMATICAL FUNCTIONS 

The Commodore 64 has a number of functions available that are 
commonly used in mathematical and scientific applications; some readers 
may however find them far too specific for their needs. 

(i) EXP- EXP(x) is equal to a constant'e' raised to the power of x where e is 
defined by mathematicians as 2.718281828. To explain how such a 
curious number was chosen - consider what happens to (1 + Vn) n as n 
gets very large (mathematicians would say as n tends to infinity and write 
it as n->oo). By executing Program 8 we see that (1 + Vn) n tends to this 
number e as defined above as n tends to infinity. Note that the 
Commodore 64 may introduce inaccuracies as n becomes very large. 
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i.e. written mathematically 

Limit (1 + Vn) n = e 
n^oo 

Itturns out a more general result is obtained from the expression (1 + > / / n) n 

This is found to tend to e x as n tends to infinity. 

Limit (1 + x /n) n = e x 
x~* oo 


syntax: EXP ( <numeric> ) 


Program 8 - E. 


10 pen a########*#*##*## 

15 REM * EXPONENTIAL E * 

20 REN #MS S r™ a =S!==« SS a=* 

25 REN * MRH 1/7/1983 * 

30 REM 
35 REM 

48 PRINT " EXPONENTIAL E " :PRINT 

45 FOR X=0 TO 5 

50 N=101X 

55 E= < 1 +1 /N > Tt*4 

68 PRINT N;TAB(10);E 

65 NEXT X 


A graph of e x plotted against x would look like 
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(ii) LOG - The LOG function produces the natural logarithm of a number. 
The logarithm of a numberisthe power needed to produce that number by 
raising the base to the power. 


syntax: LOG ( <numeric> ) 


example:- 

LOG (25) = 3.21887583 
(because e 3 21887583 =21= 25) 

From natural logarithms it is possible to find the logarithm in any base 
using the following relationship 

Log s (x) = LOG (x) 

LOG (s) 

If s is 1 0 then the resulting logarithms are called common logarithms, 
example:- 


Log io (100) = LOG (100) = 4.60517 = 2 
LOG (10) 2.30258 

(iii) SQR - The SQR function returns the square root of a number, i.e. if the 
argument is positive the function returns the number that when multiplied 
by itself is equal to the argument. If the argument is negative the error 
report 7ILLEGAL QUANTITY' is given. 

SQR (x) = f v" x if x is greater than or equal to 0, but 
l error if x is less than 0 

syntax: SQR ( <numeric> ) 


iv) ABS - The ABS function returns the absolute value of a number, this has 
the same magnitude as the argument but with a positive sign. 

ABS (x) = f x if x is greater than or equal to 0 
( -x if x is less than 0 

syntax: ABS ( < numeric > ) 
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(v) SGN - The SGN function returns the signum of a number, this is +1 if 
the argument is positive, -1 if the argument is negative or 0 if the 
argument is zero. 

( +1 if x is greater than 0 
SGN (x) =\ 0 if x is zero 

l -1 if x is less than zero 


syntax : SGN ( < numeric > ) 


QUADRATIC EQUATIONS 

Program 9 illustrates the square root function, SQR, in use. A quadriatic 
equation is one of the form: 

ax 2 + bx + c = 0 

where a,b and c are known constants and x is required to be found. It can 
be proved mathematically that the solutions are 

x = -b zb v/ b 2 -4 * a * c 
2 * a 


If b 2 >4 * a * c is greater than zero then the expression within the square 
root can be evaluated and two solutions of x can be found. These are 
known as real solutions. 

If b 2 -4 * a * c is equal to zero then the square root part does not exist and 
there is only one solution of x. This is also a real solution. 

If b 2 -4 * a * c is less than zero then the square root of the expression does 
not exist. Mathematicians say that these solutions are complex an d that 
the real part is -b/(2*a) and the imaginary part is v 7 -(b 2 -4 * a * c / (2* a) 
which are expressions which can be evaluated. Note that complex 
solutions are of no importance to the operation of the Commodore 64. 

Program 9 will solve a set of quadratic equations. 
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Program 9 - QUADRATIC EQUATIONS 


10 rem mmmmmmmmm 

15 REM * 01 JR DR RT10 EQNS % 

20 REM 

25 REM % MRH 1/7/1983 % 

30 rem mmmmmmmmm 

3ij REM 

40 PRINT : PRINT " QURDRfiTIC EQURTI OHS !i -PRINT 

45 INPUT M ENTER FIRST COEFFICIENT ";fi 

53 INPUT " ENTER SECOND COEFFICIENT n ;B 

55 INPUT n ENTER THIRD COEFFICIENT ";C 

60 PR I NT : PR I NT R; n X f 2 + "; B;" X + 55 ; C • PR I NT 

65 B=B#B-4*fl#c 

70 IF D<0 THEN 95 

75 PRINT " PERL ROOTS " -PRINT 

80 PRINT " 1. X= "* <-B+SQR<D> >/(2*R) 

85 PRINT " 2. X s5 "; <-8-8QR<D>>/<2#fi> 

90 GOTO 110 

95 PRINT " COMPLEX ROOTS ,! -PRINT 
100 PRINT " REfiL PRRT * ";-B/<2#fl) 

105 PRINT " COMPLEX PRRT ~ “<SQR(-D)/ < 2#R) 

110 PRINT -PRINT " PRESS SPACE BRR TO REF'ERT !! 
115 GET K$ --IF Kf= n M THEN 40 
120 GOTO 115 


PRIME NUMBERS 

A prime number is an integer that is only divisible exactly by 1 and itself. 
Program 1 0 prints out the first 1 00 prime numbers by assuming that the 
first two prime numbers are 2 and 3 and that all other prime numbers are 
odd. 

The program tests to see if the odd number x is prime by dividing it by all 
the prime numbers less than v/)Tthat have already been found; if in each 
case the remainder is non zero the number x is also prime. There is one 
point here that needs further explanation - why only divide by prime 
numbers previously obtained that are less than vx? Non prime numbers 
are not used since these would have at least two smaller prime numbers 
as factors. Numbers greater than v^ETare also not used since if they were a 
factor then it means a factor less than v/^Tmust also exist. 
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As each prime number is obtained it is stored in the array P( 1 00) so that it 
can be used in testing for future numbers. Because the Commodore 64's 
arithmetic is only accurate to 9 Vi significant figures, a number is assumed 
to be a factor if it has a remainder of less than 1 E-1 0. 


Program 10 - PRIME NUMBERS 

13 rem 

15 REM # PRIME NUMBERS * 

20 REM *=======-==;=:====•# 

25 REM * MRH 1/7/1.983 # 

30 REM %m*m*'W$*%**M* 

35 REM 

48 PRINT n THE FIRST 109 PRIME NUMBERS " : PRINT 
45 PRINT " PRIME NUMBER 1";TRB<18>;" IS 2" 

50 PRINT " PRIME NUMBER 2"; TflB< 18); 51 IS 3" 

55 DIM P(109) 

60 P <1) =2 : P <2 > =3 : X-S : N=3 
65 FOR 1=2 TO N 

70 IF X/P(I>~INT<X/P<I>) < IE-18 THEN 100 
75 IF SQR(X) < PCI) THEN 85 
80 NEXT I 
85 P < H > =X 

98 PRINT !i PRIME NUMBER 11 ; NTflB< 18> " IS• P(N> 

95 N=N+1 
100 X=X+2 

105 IF NCI01 THEN 65 


MORE MATHEMATICAL FUNCTIONS - TRIGONOMETRIC 
FUNCTIONS 

The Commodore 64 hasfourtrigonometricfunctions available, SIN (sine), 
COS (cosine), TAN (tangent) and ATN (arctangent). 

Trigonometric functions are all about angles and this is where we 
encounter our first problem. The majority of people measure angles in 
degrees, where a circle is divided into 360 degrees, a right angle is 90 
degrees and a straight line is 1 80 degrees. Mathematicians, however 
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prefer to measure angles with a larger unit called the radian where 1 radian 
is the angle subtended by an arc of unit length on a circle of unit radius. 
The Commodore 64 uses radians so that if you require your angles in 
degrees they will have to be converted. 


Figure 7.2 



By definition there are two Pi radians in a circle where Pi is approximately 
3.1 41 59265358 and can be written, as on the Commodore 64, as it. 
Thus 1 radian is 

360 

2tt 

degrees which is about 57.3 degrees. To convert radians into degrees, 
multiply by 1 80 

7 T 

_ _ TT TT 180 

e.g.“ radians = -r *-- = 60 degrees 

o O TT 


To convert degrees into radians multiply by tt 

T80 


TT 77 

e.g. 45 degrees = 45 *-= — radians 

180 4 


Pi is accessable on the Commodore 64 direct from the keyboard using 


SHIFT 


We shall now lookatthefourfunctions. Considerthefollowing rightangle 
trainagle with an angle of X radians and the sides labelled opposite, 
adjacent and hypotenuse. 


Opposite 

(O) 


Figure 7.3 Adjacent (A) 



t 

TT 
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Sine, cosine and tangent are defined as the ratio of lengths of certain sides 
to other sides. 

SINE - The sine of angle X is defined as the ratio of the length of the 
opposite side to the length of the hypotenuse in any right angled triangle 
with an angle of X radians. 

SIN(X) = Oi 
H 

A graph of SIN(X) plotted against X would look like: 



Figure 7.4 The Sine Wave 

syntax: SIN ( < numeric > ) 


COS - The cosine of angle X is defined as the ratio of the length of the 
adjacent side to the length of the hypotenuse in any right angled triangle 
with an angle X radians. 

COS(X) = A 
H 

A graph of COS(X) plotted against X would look like: 



Figure 7.5 The Cosine Wave 
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syntax : COS ( < numeric > ) 


TAN - The tangent of angle X is defined as the ratio of the length of the 
opposite side to the length of the adjacent side in any right angled triangle 
with an angle of X radians. 

TAN(X) =_q_ 

A 

A graph of TAN(X) plotted against X would look like: 



Figure 7.6 The Tangent Lines 

syntax : TAN ( Cnumeric > ) 

The remaining trigonometric function is:- 

ATN - The arctangent of y turns the angle whose tangent is y. 

syntax : ATN ( < numeric > ) 

The arcsine and acrcosine values, which are inverse sine and cosine 
functions respectively can be found using the following formulae 

Arcsine (y) = ATN I ---\ 

V SQR (1 - y 2 ) / 

Arccosine (y) = ATN I --- \ + E 

\ SQR (1 -y 2 ) / 2 

Note that in both cases y is always in the range -1 <=y<=+1 
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Program 1 1 calculates the angles of triangles where the lengths of all 
three sides are known. Consider the triangle below where lengths A, B and 
C are known. 



Figure 7.7 


The following relationship is known to exist: 

Rearranging the equation gives: C 2 = A 2 +B 2 - 2.A.B. Cos (c) 

( A 2 + B 2 - C 2 \ 

-I 

2 * A * B • 

Similar relationships exist for the remaining two angles. Program 1 1 
allows the lengths of the three sides to be entered and then calculates the 
angles in degrees. Note that the sum of the three angles should be 1 80 
degrees. 


Program 11 - TRIANGLE 


10 REM 

15 REM * TRfllflNGLE * 

20 REM *==============* 

25 REM % MRH 1/7/1983 % 

30 rem 

35 REM 

40 PRINT : PRINT " TRIANGLE PRINT 
45 INPUT " ENTER SIDE ONE ";fi 
50 INPUT " ENTER SIDE TNG ";E 
55 INPUT " ENTER SIDE THREE";C -PRINT 
60 PRINT 

65 X=(B*B+C*C-fi*A)/<2#B*C> 

70 RA=( tr/2-RTN < X/SQR < 1 -X*X)) > * 180/tr 
75 X=(fl*A-B*B+C#C)/(2#fl#C) 
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80 BB~ ( it/2-RTN (X/SQR (1 -X#X))) # 180/it 

85 M=<A#A+B#B-“C#C)/<2#fl#B) 

90 CC~ < it/2-RTN < X/SQR< 1 -X#X)) > * 1 80/it 
95 PRINT " ANGLE OPPOSITE SIDE ONE ";Rfl 
100 PRINT i! ANGLE OPPOSITE SIDE TNG "; BB 
105 PRINT " ANGLE OPPOSITE SIDE THREE”;CC 
110 REIN! 

115 PRINT " SUM OF ANGLES »;fiA+BB+CC 

180 PRINT •PRINT" PRESS SPACE BAR TO REPEAT" 

125 GET K$ -IF K#= u " THEN 40 
130 GOTO 125 


USER DEFINED FUNCTIONS 

In Commodore 64 BASIC it is possible to define your own functions by 
using the statement DEF FN. 


syntax : DEF FN name ( < dummy variable > ) = <expression> 


It is followed by a variable name - a single letter - which distinguishes it 
from any other function. After this comes a dummy variable which has no 
effect on any existing variable with the same name. This variable is called 
the argument of the function. Finally the function is defined by an 
expression which contains the dummy variable. 

The defined function may then be called and used in the same fashion as 
any other numeric function on the Commodore 64 by the function FN. 


syntax : FN <name> ( < numeric > ) 


FN is followed by the name referring to the function that is required and 
the numeric valueor "argument” of the function. If a user defined function 
is called before it has been defined the error report ? UNDEF'D 
FUNCTION' is given. 

When a FN iscalled, theargument is substituted forthedummy variable in 
the DEF FN, all other variables mentioned remain the same. The value of 
the expression is then evaluated and returned. 
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examples:- 

1) 10 DEF FN R(X) = INT(X + 1/2) 

FN R(X) will return the value of X rounded to the nearest integer. 

2) !0 DEF FN F(X) = X - INT(X) 

If X is positive FN F(X) will return the fractional component of X. 

3) 1 0 DEF FN A(X) = (A + B + C)/3 

Provided that A, B and C have already been assigned values, FN A(X) will 
return their average value. Note that X is unused and so the function can 
be called with any argument. 

4) 10 DEF FN D(X) = INT(RND(0)*6+1) 

FN D(X) will return a random integer between 1 and 6 inclusive. 

SYSTEM FUNCTIONS 

FRE - It is possible to find how much RAM is available for your program 
and its variables at any stage by the function FRE. The argument of the 
function has no effect. 


syntax : FRE ( < dummy > ) 


Unfortunately, Commodore have written the system software so that if the 
result of FRE is negative, then 65535 has to be added to obtain the real 
value. 

examples PRINT 65535 + FRE (0) 

or PRINT FRE (0) 

STATUS - Returns a STATUS code for the last I/O operation. This will be 
explained in more depth later. 


syntax : ST [ ATUS ] 


PEEK - The PEEK function enables us to directly access memory cells in 
the computer and is often used in conjunction with the POKE statement; 
while these instructions may at first seem curious, understanding them 
comprehensively opens the way for some advanced computing techniques. 


syntax : PEEK ( < numeric > ) 
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The function returns the value stored at the address specified, 
example:- 

10 PRINT PEEK (16678) 

This displays the value stored at address 16678 in the computer's 
memory. 

When we have started to study the Commodore 64's memory layout we 
will find the POKE and PEEK instructions invaluable. 


********************* 


We shall meet the remaining functions available at a later stage in the 
book. 
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CHAPTER 8 


THE COMMODORE 64 
CHARACTER SET & 
STRING HANDLING. 

CHARACTER CODES. 

The Commodore 64's character set can be visualized as its own unique 
alphabet consisting of 256 items which include alphabetic and numeric 
characters, pixel graphics, punctuation marks, mathematical symbols, 
control characters etc. Each item is distinguished by its own character 
code which is a unique number between 0 and 255. 

The Commodore 64 has two functions that enable the user to convert 
from items in the character set to their character codes and vice versa. 


ASC - When ASC is applied to a string it will return the character code of 
the first character in the string. 


syntax: ASC ( <string> ) 

example 

i) 1 0 X = ASC ("ABCDE”) 

This assigns a value of 65 to 'X' because the character code of "A" is 65 


CHR$ - When CHR$ is applied to a number in the range of 0 to 255 it will 
return the character whose code is that number. 


syntax : CHR$ ( < string > ) 
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example:- 

(ii) 10 X$ = CHRS (65) 

This assigns the character "A" to X$' 

The complete set of Commodore 64 character codes is given in Appendix 
A. 

Program 12 displays the Commodore 64's character codes with the 
exception of the control characters, which as we will see later, would affect 
the display. 


Program 12 - CHARACTER SET 


10 REM 

15 REM * CHARACTER SET * 

20 REM #««»==«=«==# 

25 REM # MRH 1/7/1983 * 

30 REM 
35 REM 

48 PRINT " CHARACTER SET " :PRINT 
45 FOR X~33 TO 129 
58 PRINT CHR*QO; 

55 NEXT X 

60 FOR X—161 TO 255 
65 PRINT CHR$<X>; 

78 NEXT X 


Three more Commodore 64 string functions are:- 

LEN - When applied to a string it returns the number of characters in that 
string. 

syntax : LEN ( < string > ) 


examples:- 

LEN (“COMMODORE”) would return 9 
LEN (““) would return 0 

STR$ - When applied to a number it returns the number as a string of 
characters in the form that it would be printed. 
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syntax : STR$ ( < numeric > ) 


examples:- 

STR$ (12.01) would return ” 12.01” 

STRS (-1 2.01) would return ”-1 2.01” 

STR$ (1 00.000) would return ” 100” 

STR$ (1000000000) would return ” 1E+09” 

VAL - When applied to a string it returns the number in print format that 
exists starting at the left most character. Any unrecognized characters 
after the number are ignored. If the first character is unrecognized as a 
number then a value of 0 is returned. 


syntax: VAL ( <string> ) 

examples 

VAL (”100”) would return 100 
VAL (”R1 01 ”) would return 0 

STRING HANDLING FUNCTIONS 

Commodore 64 BASIC has three string handling functions which are 
invaluable for manipulating text and characters. These are LEFTS, 
RIGHTS and MIDS and are used for extracting a sub-string or slice from 
another string. 

LEFT$(A$,N) and RIGHT$(A$,N) extract N characters from the left-hand 
end and right-hand end of string AS respectively. 

example:- 

if AS = "ABCDEFGHIK” 

then LEFT$(A$,3) would return "ABC” 

and RIGHT$(A$,4) would return "GHIJ” 

syntax: LEFTS ( <string>, <numeric> ) 

RIGHTS ( < string > , <numeric >) 


A more powerful statement is MIDS which can be used to obtain slices 
from within the string, unlike LEFTS and RIGHTS which are limited to 
starting from one end of the string. 


syntax: MIDS ( <string>, Cnumeric 1> [, >numeric 2> ] ) 


MID$(A$,N,M) will extract M characters starting at the Nth character 
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from string A$. If the last argument M is omitted then all succeeding 
characters from the Nth are obtained. 

MARY WHITEHOUSE 

Program 1 3 illustrates the use of slicing strings with the MID$ function. A 
sentence of English can be entered and then displayed with all the four 
letter words blotted out. 

A string containing at the most 80 characters is set up such that the 
INPUT statement only fills the inner characters, leaving the first and last 
blank. 

A pointer X is set up to move along each character in turn. The computer 
first checks that character X is a space then that the next four characters 
are all characters and, finally, that the next character is another space. If it 
is found that all these conditions are true then a four letter word is present 
and so this subsection must be replaced by four stars. If it is found that not 
all the conditions are true then X is incremented by 1 and the next set of six 
characters is considered. 


example:- 


hd bo yds too 


't h d b u r n 


"9 


deck 



(blank) blank (blank) 


Program 13 - MARY WHITEHOUSE 


10 REM *******s|(*#**iK*i1f#*#* 

15 REM * MflRV WHITEHOUSE * 

20 REM #=================* 

25 REM * MRH 1/7/1983 * 

38 REM m*m^m'**'**^**MW. 

35 REM 

40 PRINT 'PRINT " THE MflRV WHITEHOUSE PROGRAM " 
45 PRINT :PRINT " ENTER STATEMENT •" 

58 INPUT A$ : fl$=" "+A$+" " 

55 L=LEH(A$> 

60 FOR X=1 TO L-5 

65 IF MIB$<flf,X,l> O " " THEN 95 

70 FOR V=1 TO 4 
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THEN 95 


75 IF MID$<A$,X+V,1> * " " 

80 NEXT V 
85 IF MID$<A$,X+5,1> <> " " THEN 95 
98 fl$=LEFTf < Af.. X >+" mm " +RIGHTf < fi$,L-X-4 > 

95 NEXT X 

100 PRINT :PRINT fl$ 

105 PRINT :PRINT " PRESS SPRCE BRR TO REPEAT " 
110 GET m ■ IF Kf=" " THEN 48 
115 GOTO 110 


WORD SEARCHES 

We can use these string functions to identify specific words or characters 
in a sentence. Program 14 illustrates this - it allows a sentence and a 
keyword to be entered and then searches to see if the keyword is in the 
sentence. 

The program searches for spaces which, when found, indicate that the 
characters from the previous space make up one complete word. Now that 
a word has been located it can be compared to see if it is<the required 
keyword. 


Program 14 - WORD SEARCH 

10 rem mmmmmmmm* 

15 REM * WORD SEARCH * 

20 REM 

25 REM * MRH 1/7/1983 * 

30 REM #**#*##•######*#*# 

35 REM 

48 PRINT :PRINT " WORD SEARCH " 

45 PRINT : PRINT " ENTER KEVWORD 
50 INPUT W$ 

55 PRINT 'PRINT " ENTER SENTENCE :" 

60 INPUT S# :S*»S$+" " 

65 L=LEN(S$) :P=1 
70 FOR X=1 TO L 

75 IF MID$<S*,X,1) O " " THEN 95 

80 IF MID$<S$,P,X-P) O Wf THEN P=X+1 :G0T0 95 

85 PRINT :PRINT " KEVWORD IS PRESENT" 
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38 GOTO 185 
35 NEXT X 


188 PRINT : 
105 PRINT : 
118 PRINT 
115 PRINT M 
120 GET K$ 


PRINT " KEVWORD IS NOT PRESENT” 
PRINT ” PRESS'- " 

SPACE EAR TO REPEAT ” 
flNV KEV FOR HEW KEVWORD” 
: IF K$=“” THEN 120 


125 IF K$= ” ” THEN 55 
130 GOTO 40 


How would you modify this program to count the number of times the 
keyword occurs? 

The previous example is limited by the INPUT statement which restricts 
the size of an entered sentence to a maximum of eighty characters. The 
next example demonstrates again the word searching technique to search 
through a series of items contained in DATA statements for a specific 
keyword. In addition to locating the keyword, program 1 5 also returns a 
word that is related to the keyword. 

The program is devised for a software house who have a vast number of 
staff each with varying skills and experience with different machines and 
languages. The staff scheduler required a means of keeping a record of the 
skills of each employee and needed a method of obtaining all the names in 
the company who had experience with a specified item. So, he needed 
some form of simple database. 

The names of each employee are stored in DATA statements followed by 
their skillls. To distinguish between a name and a skill, the name is 
preceded by the symbol The program does a word search on each 
item; if a word is preceded by '£' then the employee's name is temporarily 
stored while his/her skills are examined. If a required skill is found then 
the employee's name can be displayed. The program then continues and 
searches through the remaining items until the termination symbol '%' is 
located. 

This is probably one of the simplest forms of database programs that 
exists and is only limited by the memory size of the computer. It has the 
advantage that the staff scheduler can easily add to his records as the 
skills of his staff expand by amending the DATA statements. From this 
example you can change the DATA statements to set up a database with 
something more relevant to your own needs. 


73 



Program 1 5 - DATABASE 


10 REM ***************** 

15 REM * DATABASE * 

20 REM *===============* 

25 REM * MRH 1/7/1383 * 

3Ei REM ***************** 

35 REM 

40 PRINT :PRINT 11 SHARKY'S SOFTWARE SKILLS LTD " 

45 RESTORE :N*="" :S$="" 

50 PRINT =INPUT " ENTER SKILL REQUIRED *iS$ 

55 PRINT 
SO READ N£ 

65 IF MID*<W$,1,1THEN 85 

70 IF MIE$(W$, 1 .■ 1 >="£" THEN Hf=MID$<W*,2> : OOTO 60 
75 IF THEN PRINT Wf;" *';N$ 

30 GOTO 60 

85 PRINT -PRINT " PRESS SPACE ERR TO CONTINUE " 

80 GET K$ : IF Kt=" " THEN 40 
95 GOTO 90 
1000 REM DATA ITEMS 
1005 REM ============ 

1810 REM 

1015 DATA £BROUN R, 

1020 DATA £LEES J, 

1025 DATA £RQBERTS R, 

ARMV SYSTEMS 
1038 DATA £SINCLRIR D, 

1035 DATA £STEVENS F, 

1040 DATA fTHOMPSON B, 

1045 DATA £VATES D, 

2000 DATA V. 


FORTRAN 77, ADA, VAX 

CORAL 66, COBOL, ARGUS, TANDEM 

BASIC, COBOL, PDP II , 

ALGOL 68, COBOL, BURROUGHS 
PASCAL, UNIX, VAX, MICROS 
POLICE SYSTEMS 
BASIC, 280, 8064 


The final example of this chapter illustrates how we can manipulate text. A 
word is chosen at random from a list contained in DATA statements and 
then the letters are jumbled up to produce an anagram. The anagram is 
then displayed fora player to try and seek the original word. By entering'?’ 
the player can request the scrambled word to be displayed. The list of 
words given can be expanded on if required by adding them in additional 
DATA statements. 
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Program 16 - MANARAG! 


10 

REM 



15 

REM 

% MANARAG * 


20 

REM 



25 

REM 

* MRH 1/7X1983 * 


30 

REM 



35 

REM 



48 

PRINT 

:PRINT .."ANAGRAM" 


45 

PRINT 

:PRINT" FIND THE S 

CRRMBLE 

58 

fi$="" 

-G$="" :RESTORE 


55 

N=88 

:REM THE NUMBER OF 

WORDS 

68 

FOR J 

=1 TO <RNB<0>*N+i> 


65 

READ 

W$ 


78 

NEXT 

J 


75 

L=LEN 

<Wf> :WW#=W$ 


80 

FOR J 

= 1 TO L 


85 

N=IHT 

< 1 +RNB <0) *L ) 


98 

L$=MIIi$<W*,N, 1> : IF Lf=" 

#" THEN 


95 W$=LEFT*<Wf,N-1) +" #"+MIDf(W*,N+1> 

188 AT=AT+L$ 

185 NEXT J 

118 IF R$=WW$ THEN 68 
115 PRINT = PRINT ,,8* 

120 PRINT :INPUT " ENTER GUESS ";G$ 

125 IF Gi="" THEN 128 

130 IF MIB$<G$, 1 .■ 1 :> = "?" THEN PRINT :PRINT ,"ANSWER 
WWt : GOTO 145 

135 IF WW$ <> G$ THEN PRINT : PRINT " TRV flGflIN " :GOTO 
128 

148 PRINT -PRINT , "WELL BONE " 

145 PRINT =PRINT " PRESS SPRCE BRR TO REPERT " 

150 GET K $ '■ IF " " THEN 40 
155 GOTO 158 

1080 REM WORD LIST 

1005 REM =========== 

1010 BfiTfi HVDROOEN,MONOPOLV, LOOPHOLE,CHIMNEV,PACK,CHOR 
AL„,CHROHIC,DUET,ELLIPSE 

1015 DATA FASO ISM, HONEY, GRUEL, MALARIA, RAT IGNAL, RRT10, S 
COLD,CRY,COAX,LIBEL,QUIZ 

1028 BATA EGOTISM,SRINT,BAPTIZE,ABACUS,AEON.SKULL,TRIP 
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OB > BELAY.FLINT.KNUCKLE 

1025 BRIO BERET, SLIT, MEMGRV, SERVICE, OMEOR, SOCI ABLE, NEC 
LECT.. HOBBV .■ ROQUET, SLftSH 

1030 BRTfi ROCKET .• WARRANTCOLUMN > CflVflL. IER > UKUS3 > DECEIVE 
,TRRITOR,SCAB,SwIHE,WOE 

1 @35 BATA WHIRL > 0CIBIC > P0WER > AR01)yE > INHING.< JENtL 



,GRUDGE. 

;.hkN I VRl •* UI UUlfcE1 (■ I h I 


1848 

DP;TP, JUG 

OLE .• POXV, KHAKIRCQUIT, J 

UBILEE,ENIGMA,LOCH 


,POULTRY 

.. ORACLE, POTTERV 


1045 

DR IR UKi 

HOBOX.. INTERNAL / SQUEEZk. 

LACQUER.. IRONV,FLEX 


IBLE, HORRIFIC, COMPUTE.■ .TUT 


1650 

REM 

« ETC. 

» 
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CHAPTER 9 


CONTROL CHARACTERS 


By now you will be well aware that in command mode you can move the 
cursor about the screen with the cursor control keys 


reposition it at the top left hand corner with 


CLR 

HOME 



& 

CRSR 




or 


It was also 


mentioned briefly that you could alter th e colou r of the text displayed by 
pressing one of the digit keys with eitherBEBorpfli- Each of these keys 
produce control characters. Commodore BASIC has a unique and powerful 
facility which enables such control characters to be programmed into 
PRINT statements and so can be used whilst in program mode. When 
programmed into a string each control character is represented by a 
unique graphic symbol and is displayed in the program listing. Probably 
oneof the hardestthingsfora beginnertoCommodore BASIC is to beable 
to associate which control key is associated with which particular symbol 
in a listing. All the Commodore 64 control symbols are listed in Appendix 
C. 


When in command mode and entering a program the control keys will 
usually act as normal. If, however, a set of quotation marks are entered 
then the keyboard changes into quote mode; from then onwards the 
control keys have no effect except to return their appropria te control 
character symbol. A second set of quotation marks or lsiaillsCT will switch 
the keyboard back into normal mode. So that additional control characters 


can be edited into a line, 


SHIFT 


INST 

DEL 


also switches the keyboard 


into quote mode. Once all the spaces that were INSerTed have been filled, 
the keyboard automatically returns to normal mode. 


Note that if quote mode is switched on by pressing quotes then the 
DELete key will remove the character to the right of the cursor; if however 
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it is switched on by INSerTing characters then the DELete key returns its 
own control character symbol until all the inserted spaces are filled. As a 
result you cannot DELete characters if inserted spaces are still present in 
the string. 

By referring to Appendix C you will see there are five control characters 
that cannot be accessed directly from the keyboard. These are shifted 
RETURN (acts as a carriage return and linefeed), switch to upper/lower 
case mode, switch to upper case/graphic mode, enable keyboard mode 
switch and disable keyboard mode switch. These control characters can 
be enter ed into a s tring by leaving a space for them and then editing the 
line afterHMiSBEB has been pressed. The characters are then entered by 

pressing wdsW RVS ON which switches the text to reverse video and 

then followed with the corresponding graphic symbol which relates to the 
required control key. 

When using cursor control characters remember that whenever a character 
is displayed on the screen the cursor position moves one position to the 
right. 

The semicolon can be used to concatenate strings containing control 
characters in the same fashion as with normal characters - the next 
example which displays a message with a border surrounding it demonstrates 
this technique. 


10 REM BORDER 
15 PRINT "T • 

20 FOR 1=1 TO 3 :PRINT "»il "J ‘-NEXT I 

25 FOR 1=1 TO 20 '-PRINT "W"> : NEXT I 

30 FOR 1=1 TO 10 'PRINT "IBM"; : NEXT I 

35 FOR 1=1 TO 20 =PRINT "I■*"; '-NEXT I 

40 FOR 1=1 TO 10 : PRINT "ITUS"; 'NEXT I 

45 PRINT "KM GETTING MORE FROM 
50 PRINT "KMMIIIIIIIIlirTHE"; 

55 PRINT "KDSDailMMCOMMOBORE 64 KM" 
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The semicolons are included to concatenate the sequential printing of the 
characters as the FOR...NEXT loops are executed. 

The Commodore 64 also has two functions which can be used in 
conjunction with control characters in PRI NT statements to reposition the 
cursor. 

SPC - The SPC function is used to output a fixed number of SPaCes to the 
screen, or as we shall see later to other peripherals. 


syntax : SPC ( < numeric > ) 


The argument of the function is limited to the range 0 to 255. 

TAB - The TAB function is used to move the cursor a fixed number of 
column positions relative to the start of the current print line. 


syntax : TAB ( < numeric > ) 


The argument of the function is limited to the range 0 to 255. If the current 
print position has already past the required column the print position 
remains unaltered. 


These two functions are illustrated in program 1 7, CALENDAR. 

This displays the calendar for any particular month and year. The original 
calendar was devised by Julius Caesar, but he fixed the year to be too long 
by eleven minutes. This was corrected with the introduction of the 
Gregorian calendar in Italy in 1 582, although it was not introduced into 
England until 1 752.The program will notgive correct answers before this 
date. 


The program uses a formula in a subroutine at line 200 to calculate the day 
of the week on which a particular month commences. To use the program, 
enter the month as a number from 1 to 1 2, followed by the year using all 4 
digits. 
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Program 17 - CALENDAR 


10 rem #M%m*MM****** 

15 REM * CALENDAR * 

20 REM *===============* 

25 REM * MRH 1/7/1983 * 

30 REM 
35 REM 

48 PRINT "CM CALENDAR 11 

45 INPUT "M ENTER MONTH";M 

50 IF M<1 OR M>12 THEN 15 

55 INPUT "S ENTER VEflR ";V 

60 PRINT "M MONTH"M;SPCC3>" VEflR"; V; TAB(40> 

ii'm rriDC'cr-T ** 

65 GET kV : IF Kf“"N" THEN 40 
70 IF K*<>"V" AND KtO" " THEN 65 
75 PRINT "38 MONTH";M;SPC(3);" VEflR";V 
80 PRINT n m SUN MON TUE WED THU FRI SAT M" 

85 GOSUE 208 

90 D=DD : M=M+1 

95 IF MM2 THEN M=1 :V=V+1 

108 GOSUB 200 

105 IF DDCD THEN DD=DD+7 

110 N=28+BD-D 

115 P=4*D 

120 FOR X=1 TO N 

125 PRINT TAB(P>;X; 

138 P=P+4 :IF P>=26 THEN P=0 :PRINT 
135 NEXT X 

140 PRINT :PRINT "MS PRESS SPACE EAR TO CONTINUE " 

145 GET K$ : IF K$=" " THEN 40 

150 GOTO 145 

200 MM=M-2 ; VV-V 

205 IF MM>0 THEN GOTO 215 

210 MM=MM+12 : VV=VV-1 

215 C=INT(V/100 ) ■VV=VV-100#C 

220 DD=1+1NT < 2.6#MM-0.19)+VV+1NT <VV/4)+1NT <C/4 >-2*C 
225 BB=BD-7*INT<BB/7> 

230 RETURN 
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MORE ON CONTROL CHARACTERS 


By referring to Appendix A you will notice that the control keys mentioned 
have their own ASCII character code - thus we could include control keys 
in our program by using 

PRINT CHR$(X) 

where X is the relevant character code 


For example, two control characters we met earlier were the enable/disable 
keyboard mode switch. Also, these character codes are not directly 
accessible from the keyboard and so it is usually easier to obtain them by 
this means. 


i.e. Type: PRINT CHR$(8) RETURN 

Now try to obtain upper/lower case keyboard mode by pressing 
^simultaneously. 

You should find that it cannot be accessed. 


SHIFT 


Similarly PRINT CHR$(9) will enable the keyboard mode switch. 
ANIMATED EFFECTS 


With the aid of control characters and FOR...NEXT loops we can display a 
sequence of characters to produce some simple animation. The basic idea 
is to construct a string which includes the characters to be displayed along 
with some cursor control characters to move the characters from its 
previous print position and some blank characters to overwrite the 
previous display. By controlling the program execution with the FOR...NEXT 
loop we can print the string several times in succession to produce some 
interesting animated effects. 

example: Horizontal Motion 


10 REM HORIZONTAL MOTION 

15 print "imm" 

20 FOR J=1 TO 39 
25 PRINT " >ir; 

30 FOR K*1 TO 40 • NEXT K 
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35 NEXT J 
40 FOR J=1 TO 39 
45 PRINT " IIKII"; 

50 FOR K=i TO 40 ■ NEXT K 
55 NEXT J 
60 GOTO 20 

We could use a similar technique to achieve vertical movement. The next 
example combines both horizontal and vertical movement to produce a 
diagonal motion. 

example: Diagonal Motion 


10 REM IHflGONfiL MOTION 
15 PRINT ‘TKPar 
20 FOR J=1 TO 22 

25 PR I NT " ffl"; CHR$ < 186);" T1 CHR* Cl 86);" lUN"; 

30 FOR K=1 TO 40 : NEXT K 
35 NEXT J 
40 GOTO 15 


We shall see later how to draw more realistic figures with a higher 
resolution and then to use similar techniques for a more acceptable 
display. 
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CHAPTER 10 


THE TIME MACHINE 


The Commodore 64 has two internal counters which are steadily 
incremented automatically with time. With this facility we have the scope 
to enable us to add timing to our programs for such uses as a clock, 
stopwatch or for timing moves in games. We can also time the lengths of 
processes to compare how efficient different programming methods are. 

The timers are accessed by the names TIME and TIMES; these are 
reserved keywords and so cannot be used as variables. Note that the 
timers are not incremented during tape I/O. 

TIME - The TIME function accesses an internal timer known as a jiffy clock 
which is initialised to zero at switch on and from then onwards is 
incremented by 60 units every second. 


syntax : Tl [ME] 


We can use TIME to time to an accuracy of 1/60th of second. To achieve 
this we need to know the initial and final values of TIME. By dividing the 
difference by 60 the time in seconds is calculated. Sometimes, to obtain a 
true value, a fraction of a second should be subtracted to allow for the 
processing time in reading the jiffy clock. 

Program 1 8 demonstrates TIME by testing the speed of your reactions. 


Program 18 - REACTION TIMER 


10 rem 

15 REM * REfiCTION TIMER * 
20 REM *= = = = ==^==:=====:^=:* 
25 REM * MRH 1/7/1983 * 

30 rem m*%**w**wm%%w 

35 REM 
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40 PRINT 

« PRESS 

SPACE BAR TO COMMENCE" 

45 GET VS 

■ IF K$0" 

" THEN 45 

50 FOR 1=0 
55 PRINT " 

TO RHIK0) 
T 

STEP 0,005 

60 GET VS 

• if K$o ,,n 

AND KfO" " THEN PRINT 

65 NEXT I 

a CHERT 1 ! 

" - END 

70 PRINT " 
75 T1=TIME 


Mi VI tfEMu 

80 GET VS 
85 T 2=TIME 

; TfT 

-Tl-0.14 

OR VS -" " THEN 80 

90 PRINT " 

KKiWfl 

TIME TAKEN IS 


I NT <T2» 100/60 >.-'100 
95 GOTO 4@ 


TIMES - The TIMES function works like a normal six character digital 
clock consisting of hours, minutes and seconds. The system software 
uses the jiffy clock to regularly update TIMES but unlike TIME, TIMES can 
be assigned an initial value - just as you set a clock. 


syntax : Tl [ME] $ 


Program 1 9 demonstrates TIMES by converting the six characters that 
make upTIMES into a more acceptable clock display. Note how we access 
the hours, minutes and seconds from TIMES by taking a slice. 


Program 19 - DIGITAL CLOCK 

10 REM *##############*#* 

15 REM * DIGITAL CLOCK * 

20 REM *================* 

25 REM * MRH 1/7/1983 * 

30 REM im*************** 

35 REM 

40 PRINT "CENTER TIME.MW" 

45 INPUT "ENTER HOURS: ";H$ =H»VfiL<Hf) 
50 IF H<0 OR H>23 THEN 45 
55 INPUT "ENTER MINUTES:";M* ; M=VAL<M$> 
60 IF M<0 OR M>59 THEN 55 
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6 5 IF LEN(H$)=1 THEN H$="0"+H$ 

70 IF LEN<M£)=1 THEN M$-"0"+M* 

75 PRINT "HPRESS SPACE BAR TO COMMENCE " 

00 GET Kf- IF KiO" " THEN 80 
85 T$=Hf+Mi+"00" 

90 IF LEN<Tt)<>6 THEN 40 
95 TIME$=T $ 

100 PRINT M TIME I" 

105 PRINT "M" 

110 FOR 1=1 TO 8 :PRINT "JOW"; : NEXT I 
115 H$=MID$CTIME$, 1 ,2) 

120 Mi=MIB$<TIMEt>3,2) 

125 S$=MIB$<TIME$.,5,2) : F=VRL<S$) 

130 IF F=2#INT<F/2> THEN 140 

135 PRINT Hi;"S$ :QQTQ 185 

140 PRINT Hi;" ";Mi;" ";Si ■GOTO 185 


When we have studied sound you could amend this program to chime at a 
specified time or at every hour. 
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CHAPTER 11 


TECHNIQUES FOR SORTING 


One of the earliest points made in this book was that one of the few 
advantages that a computer has over the human brain is its ability to 
undertake long, laborious but relatively simple tasks in a short time. One 
such task that we shall examine is the mundane job of sorting data 
comprised of numeric or alphabetic items into some sequence - usually 
into increasing or alphabetic order. There have been many algorithms 
devised for doing such operations although their efficiency is usually 
proportional to their complexity. 

We will restrict ourselves to looking at the following four algorithms. 


METHOD 

COMPLEXITY 

EFFICIENCY 

Small 
Quantities 
of data 

Large 
Quantities 
of data 

Bubble sort 

Very simple 

Excellent 

Poor 

Insertionsort 

Very simple 

Excellent 

Average 

Shell sort 

Average 

Good 

Good 

Quick sort 

Complex 

Good 

Very good 


Figure 11.1 

For each method, it is usual to store the data in either a numeric or string 
array. The size of the array is limited only by the available RAM. But, one 
factor which should always be considered when deciding upon which 
algorithm to use is the storage requirement; some methods require a 
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great deal of memory in addition to the array containing the items of data. 

Each of the algorithms mentioned above will now be explained in detail 
with a program routine to illustrate it. 


The main code below can be used to set up random data and to call each 
sort program. In order that the programs can be compared the main code 
will also give the processing time required. 

MAIN CODE FOR SORTING 

10 REM *MW****W*W*W* 

15 REM * MAIN CODE FOR * 

20 REM * SORTING * 

25 REM *===*=»===========* 

30 REM * MRH 1/7/1933 * 

35 REM *#####**##!*#####** 

45 CLR 

50 PRINT "CM SORTING TECHNIQUES.” 

55 INPUT "M NUMBER OF ITEMS TO BE SORTED "iN 
60 IF N<5 OR N>1000 THEN 55 
65 N=INT(H) : DIM D<N> 

70 FOR 1=1 TO N 
75 D<I)=INT<RHD<0)*2500> 

80 NEXT I 

85 PRINT "H ENTER : M" 

90 PRINT " 1) BUBBLE SORT" 

95 PRINT " 2) INSERTION SORT" 

100 PRINT " 3> SHELL SORT” 

105 PRINT " 4) QUICK SORT" 

110 INPUT "» OPTION ";K$ : K=VAL<K$) 

115 IF K<1 OR K>4 THEM 110 
120 TIME$="000000" 

125 ON K GOSUB 1000.-2000,3000/4000 
130 PRINT "S DATA SORTED" 

135 H$=MID$<TIME$,1,2) 

148 M$=MID$<TIME$,3,2) 

145 S$=MID$<TIME$,5,2> 

150 PRINT "M TIME TAKEN " 

155 PRINT " ";H*;" HOURS ";M$;" MINUTES SECONDS" 

160 PRINT "M DO VOU WANT TO SEE DATA <Y/N>" 

165 GET K$ '■ IF K$="" THEN 165 
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178 IF K$0"V" THEN 45 
175 FOR 1=1 TO N 
180 PRINT D<I> 

185 NEXT I 

190 GET IF K$="" THEN 190 
195 GOTO 45 


BUBBLE SORT 

The first method of sorting is called a 'bubble sort' because the lowest 
values can be thought of as floating upwards to one end of the array and 
the highest values to the bottom. The array is continually scanned and two 
neighbouring items are swapped if the first has a higher value than the 
other; if no exchanges are made then the list is in order. 


example 


SCAN ONE 
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SCAN THREE 


2 

3 

4 
6 

7 

8 


Figure 11.2 

No exchanges are made on scan 3 which implies that the list is ordered. 


Program 20 - BUBBLE SORT 

1000 REM BUBBLE SORT 
1005 REM =========== 

1010 = 

1015 FOR J=1 TO N-l 
1020 F=0 

1025 FOR 1=1 TO N-J 

1030 IF B<I) O D<I+1> THEN 1045 

1035 F=1 

1040 T=B<I+1> : Ba+l)=B(I) : B(I) =T 

1045 NEXT I 

1050 IF F=0 THEN 1060 

1055 NEXT J 

1060 RETURN 


INSERTION SORT 

The 'Insertion Sort' method enables a list of items to be ordered with a 
single scan of the array. When an item is found to be out of order, its 
correct position is found and then by moving certain other items one place 
along the array it can be correctly positioned. 
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example 



Figure 11.3 


Program 21 - INSERTION SORT 


2000 REM INSERTION SORT 
2005 REM ============== 

2010 : 

2015 FOR J=2 TO N 
2020 T-IKJ) 

2025 FOR I=J-1 TO 1 STEP -1 
2030 IF D<I) <= T THEN 2045 
2035 D(I+1)=D<I) 

2040 NEXT I 
2045 D<1+1)=T 
2050 NEXT J 
2055 RETURN 


SHELL SORT 

Whereas the 'bubble sort' only compares adjacent data items in the array, 
a shell sort makes initial comparisons between items That are far apart on 
the assumption that if elements are far apart and are required to be 
swapped it is more efficient to do it as soon as possible. The separation 
between data elements is called the 'sort interval'. Initially, the sort interval 
is set to the number of elements and then on each scan the interval is 
reduced by one half until the final scan is equivalent to the 'bubble sort'. 
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Program 22 - SHELL SORT 


3000 REM SHELL SORT 
3005 REM ======:==== 

3010 • 

3015 SI=N 

3020 IF SI < 1 THEN 3070 
3025 SI=INTOSI/2) 

3030 F=0 

3035 FOR 1=1 TO N-SI 

3040 IF D(I) O DU+SI) THEN 3055 

3045 F=1 

3050 T*D(I+SI) : DUSD^DU) : D<I)=T 

3055 NEXT I 

3060 IF F=0 THEN 3020 

3065 GOTO 3030 

3070 RETURN 


QUICK SORT 

And finally, the 'quick sort' algorithm. It is one of the more complex sorting 
algorithms but generally gives the fastest results. The general idea is that 
the items are split up (partioned) into sub-groups which in turn are 
partioned further and so on until the sub-groups are small enough that a 
form of 'bubble sort' can be applied on the group efficiently. However, 
while the sub-groups are being sorted the program must remember the 
position of the remaining unsorted data items. This is done by storing the 
start and end position of the array of the items that remain unsorted. These 
positions are stored in a second array so that the first positions stored are 
the first positions retrieved; such a structure is called a stack. The sort is 
complete when the stack becomes empty. 

Two pointers are used in the quick sort, one indicates the first and the 
other the last item in the array. One of the two pointers will always point to 
the element in the array which was initially at the first position in the array; 
this pointer is called the pivot. The two items that are currently pointed to 
are swapped if the one nearer the start of the array is greater than the 
other. The second pointer is then moved one position along the array 
towards the pivot and the process is repeated. This continues until the two 
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pointers meet, in which case the array is partioned about the pivot ino sub¬ 
groups and the process is then repeated on each new sub-group. The 
positions are stored in the array S(N,2). If, with vast quantities of data a 
'stack overflow' message appears, then the dimension of this array must 
be increased. 

example 



These two sub-groups are then sorted. 

Figure 11.4 


Program 23 - QUICK SORT 

4008 REM QUICK SORT 
4005 REM ========== 

4010 : 

4015 DIM S(40 > 2 > 

4020 PS=1 

4025 S<1,1)*1 :Sa,2>=N 

4030 IF PS=6 THEN 4110 

4035 11 =S (PS, D : JJ==S< PS, 2) : PS=PS--1 

4040 p=0 : i = n : j=j.j 

4045 IF D(I "> < BCD THEN 4060 
4050 F-l-P 

4055 T=B(I) : D(I>=B<J> :BCJ)=T 
4060 IF P“0 THEN 1=1+1 
4065 IF P=1 THEN J=J-1 
4070 IF I < J THEN 4045 
4075 IF I >= JJ THEN 4095 
4080 PS=PS+1 
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4085 IF PS > 40 THEN PRINT"'!!] STACK OVERFLOW" :END 
4090 S<PS,1) = I + 1 : S <. PS > 2) = JJ 
4095 J-J= I — 1 

4100 IF JJ > II THEN 4040 
4105 GOTO 4030 
4110 RETURN 


ALPHABETICAL SORTING 

Our final sort program uses the insertion sort algorithm to put a list of text 
strings into alphabetical order. Remember from earlier that when strings 
are compared, a string is found to be less than another if it comes first in 
alphabetical order (i.e. as in a telephone directory). 

Program 24 - ALPHABETICAL SORTING 


10 rem 

15 REN * ALPHABETICAL SORTING * 

28 REM *============.-.======■===* 

25 REM * MRH 1/7/1983 * 

30 REM 
35 REM 

48 PRINT "ns ALPHABETICAL SORTING " 

45 INPUT "MS ENTER NUMBER OF STRINGS ";N 
50 DIM A$<N> . 

55 PRINT "MM ENTER EACH STRING " 

60 FOR J-l TO N 
65 INPUT A$(J) 

70 NEXT J 
75 FOR J=2 TO N 
88 TT=A$(J) 

85 FOR K=J-1 TO 1 STEP -1 
90 IF fi#<KXT$ THEN 105 
95 A$<K+l)*fl$(K) 

100 NEXT K 
185 A$<K+1)=Tf 
110 NEXT J 

115 PRINT "nfl SORTED LIST M" 
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120 FOR J=1 TO N 
125 PRINT A*<J> 

130 NEXT J 

135 PRINT "M PRESS SPACE BAR TO REPEAT " 
140 GET K* : IF K$=" " THEN 40 
145 CL..R ' GOTO 140 


One other sort algorithm called the 'tree sort' algorithm will be met later 
when we study Dynamic Data Structures. 
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CHAPTER 12 


THE CODING OF 
INFORMATION FOR 
COMPUTER SYSTEMS 


THE BINARY NUMBER SYSTEM 


So far, we have taken it for granted that a computer is able to store data in 
its memory but we have yet to study the form in which the data is stored. 

Although in chapter one the memory in a computer system was compared 
with that of the human brain this comparison leaves a lotto be desired. The 
brain can memorize all types of information including letters, numbers 
and words. In comparison, the computer's memory is very simple; the 
nature of electronic components being either switched on or off reduces 
its capabilities to being able to recognize just two states; these are usually 
written for convenience as '0' and ' 1Just as in English where words and 
sentences are built up by using more than one letter, and numbers consist 
of several digits, computer expressions are represented by sequences of 
'0's and '1 's. Such patterns of 'O s and '1 's are called binary numbers. 

When numbers are written in the normal decimal or base 1 0 representation 
the digit furthest to the right gives the number of units, the digit to its left 
gives the numberof tens (the base of the numbersystem), the nextdigit to 
the left gives the number of hundreds (the base squared), and so on. 

Binary numbers use a base of 2; the digit furthest to the right gives the 
number of units, the digit to its left gives the number of twos (the base), 
the next digit gives the numbers of fours (the based squared), the next 
digit gives the number of eights (the base cubed), and so on. 

Conventionallythe number 345 in thefamiliardecimal numbering system 
that we use means 
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3 4 5 (decimal) 

I *- 5 x 10° = 5 x 1= 5 

1 -4 x 1 0 1 = 4 x 10= 40 

-3 x 10 2 = 3 x 1 00 = 300 

345 (decimal) 


Likewise a binary number such as 1 1 001 is equivalent to 

110 0 1 (binary) 

I I-1 X 2° = 1 X 1 = 1 

1 -0 x 2 1 = 0 x 2= 0 

1 -0 x 2 2 = 0 x 4= 0 

1 -1 x 2 3 = 1 x 8 = 8 

1 -1 x 2 4 = 1 x 1 6 = 16 

25 

(decimal) 

When counting a decimal a '1' is carried over into the next column 
whenever a '9' is reached, i.e. after 9 comes 1 0, after 29 comes 30 and 
after 99 comes 100 

Similarly since in binary only the digits 'O' and '1' are available, when 
counting a' 1' is carried over whenever a' 1' is reached, i.e. after 0 comes 1, 
after 1 comes 1 0, after 1 0 comes 1 1, after 1 1 comes 1 00. (See Figure 
1 2.3 for further examples). 

It can be seen that the binary numbering system works on the same 
principle as the decimal numbering system but since more digits are 
required to represent a number in binary than in decimal, it would be more 
cumbersome for us to use. 

It is now possible to explain why in chapter one it was stated that a number 
stored at a particular address in the computer memory had to be within the 
range 0 to 255. This is because a storage location can contain only eight 
binary digits; thus the range is from 00000000(0 decimal) to 1 1 1 1 1 1 1 1 
(255 decimal). When referring to binary numbers in computers an 
individual digit is called a bit and a group of eight bits at an address is 
called a byte. 

Binary numbers may be combined by addition, subtraction, multiplication 
and division. 

Binary addition uses the following five rules. 
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0 + 0 = 0 

0 + 1=1 


1+0=1 
1 + 1=0 carry 1 
carry +1 + 1 = 1 carry 1 


e.g. 


1 1 1 Taking the 1 st column, 
+ 011 Taking the 2nd column, 

- Taking the 3rd column, 

10 10 Taking the 4th column, 


1 + 1 =0 carry 1 

1 + 1 + carry = 1 carry 1 
1 + carry = 0 carry 1 
carry = 1 


1 1 1 

\\\ 


Carry 

Indicators 


Binary subtraction uses the following four rules. 


0-0 = 0 
1-0 = 0 
1 - 1=0 

0-1 = 1 (found by borrowing from next higher digit) 


e.g. 


e.g. 


0 1 
X 0 
0 1 


0 1 


Taking the 1 st column, 0-1 not possible 
borrow from next 
highest digit 
10 - 1=1 

Taking the 2nd column, 0-0 = 0 



Borrow indicators 


0 1 1 
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e.g. 


0 1 --- 

Y 0 1 Borrow indicators 

-Oil 

0 1 0 


One complication when dealing with binary numbers is the handling of 
negative numbers. Consider the problem of subtracting 92 from 20 using 
binary numbers: 


DECIMAL 

20 

- 92 

- 72 


BINARY 
00010100 
- 01011100 

10111000 


The above binary result is obtained only if we do not worry where the 
'borrow' for the left hand bit came from. But, 10111 000 in binary is equal 
to 1 84 in decimal, so that -72 decimal seems to have the same binary 
representation as 1 84. How can we explain this? To do so, we must find a 
way of representing negative numbers. These can be visualized as 
numbers in the opposite direction to positive numbers, i.e. if an electric 
meter reading 0000 were wound back one unit it would read 9999. To 
obtain -72 it should be wound back 72 units, like this: 
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Thus -72 can be represented on our meter as 9928 as long as we 
remember that it is really a negative number. 

Using a similar method for binary numbers, it is conveneient to represent 
negative numbers in a form that is known as two's complement. In a 
binary number containing x bits, this simply means that (-n) is stored as 
(2 X - n). 

For example a computer using 8 bits would store -72 (decimal) as (2 8 - 
72)=1 84 



A binary number can be converted into two's complement form simply by 
converting all the ' 1 's into '0's and the '0's into ' 1 's and then adding 1. 

e.g. Negate 72: 

72 in binary is 0 10 0 10 0 0 

▼ 

Convert digits 10 110 111 

▼ 

Add 1 10 1110 0 0 

So -72 (decimal) is represented by 10 1110 0 0 

e.g. Negate (-72):(-72)in decimal is 1 0 1 1 10 0 0 

▼ 

Convert digits 0 10 0 0 1 1 1 

▼ 

Add 1 0 10 0 10 0 0 

So -(-72) (decimal) is represented by 01001000, which as we would 
expect is 72 (decimal). 

If this is a valid form of -72 we would expect 72 + (-72) to be zero. 


99 



01001000 
+10111000 


100000000 


Ignoring the first digit, the last eight digits show this to be so. The 
additional bit on the extreme left is known as the sign bit. If the sign bit is 
'O' the number is positive and if the sign bit is ' 1' the number is negative, 
i.e. in two's complement form, when the two numbers add up to zero the 
sign bit is irrelevant. The use of the sign bit simply enables the computerto 
distinguish between positive and negative numbers. As examples, we 
would expect 172 + (-25) to be positive and 1 1 7 + (-1 59) to be negative. 


sign bit (0 for normal form, 1 for two's complement form) 


1 72 

E) 

10101100 

(25 in two's complement form, 

- 25 

+HI 

11100111 

thus the sign bit is set) 

147 

El 

10010011 



“T- 

positive, thus result is in normal form. 


1 1 7 


m 

01 110101 

(159 in two's complement form, 

- 159 


ffi 

01 100001 

thus the sign bit is set) 

- 42 


1 1010110 



t 


negative, thus result is in two's complement form. 

HEXADECIMAL NOTATION 

Unlike computers, we find these long strings of '0's and '1 's difficult to 
memorize and awkward to work with, so some simpler notations have 
been developed to help us. One such system uses a numbering system 
with a base of sixteen and is known as the hexadecimal numbering 
system. This requires sixteen digits but instead of designing six new 
symbols, the first letters of the alphabet are used. The sixteen digits are: 

0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F. 

It is important in this context not to interpret the new symbols as letters 
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but as digits that are capable of the mathematical operations such as 
addition, subtraction etc. 

As an example, consider the hexadecimal number 2FA: 


2 F A (hex) 

1_A x 1 6° = A x 1 = 10 (decimal) x 1 = 10 

-F x 1 6 1 = F x 16=15 (decimal) x 1 6 = 240 

-2 x 1 6 2 = 2 x 256 = 2 (decimal) x 256 = 512 

= 512 

762 

(decimal) 

There is a very simple method for converting binary numbers into its 
hexadecimal equivalent. This involves splitting up the binary bits into 
groups of four bits, starting from the right, then each digit of the 
hexadecimal number is represented by the value of the four bits. 


For example 

Split bits into groups of four 
Calculate value of each group 
Convert to hexadecimal 


1 0 

11 11 

▼ 

10 10 

1 0 

11 11 

▼ 

10 10 

(2) 

(15) 

▼ 

(10) 

2 

F 

A 


Thus 2FA (hex) and 1011111010 (binary) are equivalent. 

As a byte contains eight bits, its value may be expressed with just two 
hexadecimal digits; thus, with the possible exception of decimal numbers 
the hexadecimal numbering system is often used in computing in 
preference to any other numbering systems. 


For example 


7 

6 5 

4 

3 

2 1 

0 

1 

- ! - 

0 1 

1 i 

i 

0 

j_i 

1 

i_1 

i 

0 0 

1 1 

1 

\_ 

-v- 

j \ 

_ v _ 



Figure 1 2.2 


bit 
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i.e. The first hexadecimal digit represents the value of the four most 
significant bits and the second hexadecimal digit represents the value of 
the four least significant bits. So, the hex form; of this number is A9. 


EXAMPLES OF DECIMAL, BINARY AND 
HEXADECIMAL NUMBERS 


Decimal 

Binary 

Hex. Dec. 


Decimal 

Binary 

Hex.Dec. 

-15 

11110001 

FI 


+ 1 

1 

1 

-14 

11110010 

F2 


+ 2 

10 

2 

-13 

11110011 

F3 


+ 3 

1 1 

3 

-12 

1110100 

F 


+ 4 

10 

4 

-1 1 

1110101 

F5 


+ 5 

101 

5 

-10 

11110110 

F6 


+ 6 

1 10 

6 

- 9 

11110111 

F7 


+ 7 

111 

7 

- 8 

11111000 

F8 


+ 8 

1000 

8 

- 7 

11111001 

F9 


+ 9 

1001 

9 

- 6 

11111010 

FA 


+ 10 

1010 

A 

- 5 

11111011 

FB 


+ 1 1 

101 1 

B 

- 4 

11111100 

FC 


+ 1 2 

1 100 

C 

- 3 

11111101 

FD 


+ 1 3 

1 101 

D 

- 2 

1 1 1 1 1 1 1 0 

FE 


+ 1 4 

1110 

E 

- 1 

11111111 

FF 


+ 1 5 

1111 

F 

0 

00000000 

0 


+1 6 

10000 

10 


Figure 1 2.3 


When working with decimal and hexadecimal numbers you should 
remember that although the computer appears to understand them 
through its I/O devices it still stores and operates on them in their 
expanded binary form. 

If, having read this chapter several times, you still do not feel happy about 
binary and hexadecimal numbers - don't worry! These strange notations 
are not very important in learning computer programming but, as your 
skills develop, a full understanding of these numbers will be vital to be able 
to use the advanced techniques that are available - especially in machine 
code programming. 
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CHAPTER 13 


COMPUTER LOGIC 


THINKING LOGICALLY 

If we considered the normal everyday things which we do, we would find 
that the majority of the tasks require numerous decisions to be made. In 
order for a computer system to simulate some of the mental processes of a 
human brain, it must also be able to make logical decisions. Although a 
computer can only think in terms of '0's and ' 1 's it is still possible for the 
computer to solve complicated tasks involving decisions by reducing the 
problem to one of '0's and' 1 's. This is binary logic and is often referred to 
as Boolean Algebra by mathematicians. 

This logic can be explained most clearly by considering an example 
e.g. 

«Jf my car was serviced more than 1 2 months ago (A) 
and I have driven at least 6000 miles since the last oil change (B) 
then I shall change the oil. (C)» 

There are three sections to this statement which have been labelled A,B 
and C. A and B refer to the two questions I have to ask myself and C refers 
to the action I shall take. A,B and C are sometimes called binary variables 
and take the values ' 1' if the statement is true and '0' if the statement is 
false. Analysing the statement reveals there are four possible combinations 
for A and B which are shown below. 

(1) Car has been serviced within 1 2 months. 

Less than 6000 mileshave been driven. 

(2) Car has been serviced within 1 2 months. 

More than 6000miles have been driven. 

(3) Car has not been serviced within 1 2 months. 

Less than 6000 miles have been driven. 

(4) Car has not been serviced within 1 2 months. 

More than 6000 miles have been driven. 
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Since I only change the oil if statement A and statement B are true then I 
only change it for the fourth option, i.e. if the car has not been serviced 
within 1 2 months and more than 6000 miles have been driven since the 
last oil change. 

These results can be written in tabular form using '1' for true and '0' for 
false. Such a table is called a truth table, an example of which is shown 
below: 



A 

B 

c 

(1) 

0 

0 

0 

(2) 

0 

1 

0 

(3) 

1 

0 

0 

(4) 

1 

1 

1 


Figure 1 3.1 The AND truth table 


If however the original statement was amended to read 

«Jf my car was serviced more than 1 2 months ago (A) 

or I have driven at least 6000 miles since the last oil change (B) 

then I shall change the oil (C)» 

Then I would change the oil if either (or both) statement A or statement B 
was true. The truth table would be 



A 

B 

C 

(1) 

0 

0 

0 


0 

1 

1 

nw 

1 

0 

1 

HnlH 

1 

1 

1 


Figure 1 3.2 The OR truth table 


THE LOGIC OPERATORS 


We have just seen that it is possible to combine conditional statements in 
the English language by linking up the statements with either AND or OR. It 
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is also possible to combine statements in computer languages, such as 
Commodore 64 BASIC by using two operators which also are called AND 
and OR. These operators, which are very important in decision statements, 
are used between conditional statements as shown. 

(condition 1) AND (condition 2) AND returns a result TRUE if and 


(condition 1) OR (condition 2) 


These results are summarized in 


AND 

TRUE 

FALSE 

TRUE 

TRUE 

FALSE 

FALSE 

FALSE 

FALSE 


only if both conditions are TRUE. 
Otherwise the result is FALSE. 

OR returns a result FALSE if and 
only if both conditions are FALSE. 
Otherwise the result is TRUE. 

following tables. 


OR 

TRUE 

FALSE 

TRUE 

TRUE 

TRUE 

FALSE 

TRUE 

FALSE 


Figure 1 3.3 


Figure 1 3.4 


There is one other logical operator called NOT that the computer will 
understand and is used before a conditional statement 

NOT (condition 1) NOT returns a result TRUE if the 

condition is FALSE and a result 
FALSE if the condition is TRUE. 


NOT 

FALSE 

FALSE 

TRUE 

TRUE 


Figure 1 3.5 


It is also possible to combine more than two conditional statements using 
more than one operator. 
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For example 

NOT (condition 1) AND (condition 2) OR (condition 3) AND (condition 4) 

However just like the numerical operators, logical operators are processed 
in a fixed order and not simply from left to right. The priority values of each 
operator on the are: 


OPERATOR 

PRIORITY 

NOT 

4 

AND 

3 

OR 

2 


Figure 1 3.6 


i.e. the NOTs are processed first, then and ANDs and finally the ORs. As 
with numerical expressions, the order that logical expressions are 
calculated may be changed by the insertion of brackets, since expressions 
within brackets are calculated first. Relational operators such as=, <,>,>= 
etc have a priority of 5. 

One other logical operator that is occasionally used but is not available on 
the Commodore 64 is EX-OR (exclusive or) which operates on two 
operands. This gives the following results. 


EXOR 

TRUE 

FALSE 

TRUE 

FALSE 

TRUE 

FALSE 

TRUE 

FALSE 


(condition 1) EXOR (condition 2) 


Figure 1 3.7 


EXOR returns a result TRUE if one and only one of the conditions are 
TRUE. Otherwise the result is FALSE. 

We shall now see how these powerful operators may be used in programs. 
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The most useful application of logical operators is to combine several 
conditions into one IF statement. 


Example: 

1 0 IF (A>2 AND A<B) OR (A>6 AND A<C) THEN statement 

The statement that follows will be executed 
if A is greater than 2 but less than B 
or A is greater than 6 but less than C 

By combining the conditions like this into one statement we would save 
the use of several IF statements testing each individual condition. 

As one might expect things can get a little more complicated if more 
advanced techniques are required. To start with, the computer does not 
actually use the logical values of true and false but represents them 
internally as '-1' (1 1 1 1 1 1 1 1 in two's complement) and '0' (00000000) 
respectively. 

For an example try: 

PRINT 5 = 6 
& PRINT 2 = 2 

and see what is displayed. 

The AND, OR and NOT operators work as shown in their truth tables 
previously given but when applied to true/false logical values, they work 
on all eight bits. 

e.g. 


true AND true 

= true 

true OR false 

= true 

11111111 

(true) 

11111111 

(true) 

11111111 

(true) 

00000000 

(false) 

11111111 

(true) 

11111111 

(true) 

taking each column 

1 AND 1 =1 

taking each column 

1 OR 0 = 1 
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false AND true = 

false 

NOT false = true 

00000000 

(false) 

00000000 (false) 

11111111 

(true) 

11111111 (true) 

00000000 

(false) 



taking each column 

taking each column 

0 AND 1 = 0 

NOT 0 = 1 


You can see that these examples conform with the basic rules of logic that 
we have just learnt. 

The fun starts when we forget about true and false and consider the use of 
AND, OR and NOT with numbers other than 'O' and '-1For example try: 

PRINT 15 AND 195 

The answer is 3. How can we explain this? 

To do so we must convert 1 5 and 1 95 into binary numbers and then use 
our AND truth table on each column. 

i.e. 


00001111 15 (dec) 

1100001 1 195 (dec) 


00000011 


Taking each 
column 

0 AND 1 = 0 
0 AND 1 = 0 
0 AND 0 = 0 
0 AND 0 = 0 



3 (dec) 


1 AND 1 = 1 
1 AND 1 = 1 
1 AND 0= 0 
1 AND 0 = 0 


Likewise if the OR operator is used between two numbers, each column is 
calculated using the OR truth table. The NOT operator converts all the '0's 
in the binary form to ' 1 's and vice versa. 
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e.g. 




15 OR 195 



NOT 195 

00001111 
11000011 

1 5 (dec) 

1 95 (dec) 

11000011 

195 (dec) 

00111100 

60 (dec) 

11001111 

207 (dec) 


Sometimes the results will be in two's complement form. 


MASKING 

With some of the advanced features of the Commodore 64 we are going 
to need the ability to set and determine the value of specific bits within the 
computer's memory. Some microprocessors have facilities for checking 
and altering the individual bits in a byte; unfortunately this is not so with 
the Commodore 64, so we are going to have to rely on a technique known 
as masking which uses the logical operators AND and OR. 

Our requirements will be:- 

1) to be able to select a single bit X 

this is done by ANDing the byte with another containing just a single 
set bit - the result is that every bit except X is set to zero. 

e.g. 

1 10 1X10 1 
AND 0 0 0 0 1 0 0 0 


0000X000 

t 

X AND 1 = X 

So, if the result in this example were 00001 000 (decimal 8) then bit 4 
must have been set to 1. 

2) to be able to unset a single bit X (i.e. change a 1 to a 0) 

this is done by ANDing the byte with another which has all bits set 
except one corresponding to X - the result is that only the required 
bit is altered 

e.g. 
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110001X0 
AND 11111101 


11000100 

r 

X AND 0 = 0 

3) to be able to set a single bit X 

this is done byORing the byte with another which has all bits unset 
except one corresponding to X - the result is that only the required 
bit is altered 


e.g. 


OR 


YYYYXYYY 
00001000 


YYYY1YYY 


t 

X OR 1 = 1 


Before proceding further, it is important that you understand the principles 
of this chapter as the techniques mentioned will be commonly used in the 
next section of the book. 
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CHAPTER 14 


THE COMMODORE 64's 
MEMORY LAYOUT 


RAM and ROM Layout 

The Commodore 64's memory, like that of any other computer can be 
visualised as a long sequence of cells, each being given a unique 
identification lable called its address and capable of storing a number 
within a specific range. The 65535 locations in the Commodore 64's 
memory can be subdivided into several distinct sections each of which 
has a specific use as show in Figure 1 4.1. 


IIKuQm 


DESCRIPTION 

0 

1 


Used by 6510 microprocessor 

2 

1023 


Used by operating system 

1024 

2039 

0400 

07F7 

SCREEN MEMORY 

2040 

2047 

03F8 

07FF 

SPRITE POINTERS 

2048 

0800 

Available for a 

BASIC program. 

40959 

9FFF 


40960 

49151 


8K COMMODORE BASIC 
INTERPRETER 

49152 

53247 


Available for special 
programs. 

53248 

53294 


VIDEO INTERFACE CONTROLLER 
(VIC) REGISTERS. 

54272 

55295 


SOUND INTERFACE DEVICE 
(SID) REGISTERS 

55296 

56319 

D800 

DBFF 

COLOUR MEMORY 

56320 

57343 

DCOO 

DFFF 

I/O REGISTERS 

57344 

65535 

EOOO 

FFFF 

8K COMMODORE KERNAL 
OPERATING SYSTEM 


Figure 14.1 The Commodore 64's Memory Layout 













There are certain names and terms used in Figure 1 4.1 that have not yet 
been introduced; their use and importance to the system will now be 
explained. 


MEMORY MANAGEMENT 


The Commodore 64 has 64K of RAM and 20K of ROM; however, with 
only 64K addresses available, careful management of the different 
memory sections is required. This control is undertaken by the system 
software which overlays (i.e. uses the same range of addresses) the ROM 
sections on top of part of RAM; the system can tell when certain blocks of 
ROM are switched in by inspecting specific bits at address 1 - this location 
is called the 651 0 input/output port. When ROM is switched in, we can 
still write to the underlaying RAM but when reading from an overlaid 
region, the values from the ROM are returned. 

We will use this fact - as shown later - to switch off the ROM which 
contains the information on the shapes of the symbols in the standard 
character set in orderthat we can create newcharacterdefinitions in RAM. 

We shall now take a look at the different sections of the Commodore 64's 
memory. We will then use some of the advanced techniques that require a 
detailed knowledge of the memory layout. 


THE COMMODORE 64 s OPERATING SYSTEM 

There are three sections of ROM containing permanent programs in the 
Commodore 64; these three program modules are collectively known as 
the operating system. 

The three individual components are 

1. The Kernal - controls the fundamental computer system such as the 
input/output of data, program processing, peripherals, etc. 

2. The BASIC Interpreter - accepts English-like BASIC statements and 
converts them into machine code for processing. 

3. The Screen Editor - controls the output of information to the display 
screen, the editing of BASIC text and the input of data. 
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SCREEN MEMORY 


The screen memory is a section of RAM which stores the information that 
is currently displayed on the screen. It consists of ;1 000 bytes, each byte 
representing the character stored at one of 1 000 character positions on 
the screen. Initially, at switch on, the screen memory commences at 
address 1024 (0400 [hex]) although, as we shall see later, it is possible to 
reposition it to other areas of RAM. 


COLOUR MEMORY 

The colour memory is a section of RAM and contains 1 000 bytes, each of 
which has a one-to-one relationship with a screen memory byte (see 
above). The byte values specify the colour of the corresponding character 
position but the exact use of the individual bits in a colour byte depends on 
which graphic mode is in use. The colour memory commences at address 
55296 (D800 [hex]) and cannot be repositioned elsewhere. 


THE VIC-II CHIP 

All of the excellent graphic facilities available on the Commodore 64 are 
controlled by a piece of hardware called the MOS 6567 Video Interface 
Controlleror as we shall call it, the VIC-II. This component gives us several 
graphic modes which include the normal 25 x 40 character display, a 300 
x 200 high resolution dot display and sprites which are high resolution 
mobile objects. The VIC-II also controls the colours of the display. 

The VIC-II uses 47 bytes of RAM known as control registers to record all 
the important information about the screen; most of the graphic facilities 
are obtained by POKEing values directly into these locations. A complete 
memory map of the VIC-H's control registers which run from address 
53248 (D000 [hex]) onwards can be found in Appendix D. 


THE SID CHIP 


The sound and music synthesizer effects of the Commodore 64 are 



similarly controlled by an item of hardware, in this case the MOS 6581 
Sound Interface Device or SID. The effects available are obtained by 
controlling three independent oscillators and, as a result, some very 
complex sounds can be created. There are 29 control registers situated 
from address 54272 (D400 [hex]) that are used directly with POKE to 
control the SID; a complete memory map of these registers is given in 
Appendix E. 
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CHAPTER 15 


CHARACTER DISPLAY 
MODE 


We shall now delve further into the graphic facilities of the 64 and the 
different display modes that are available, which has been previously 
mentioned, are controlled by the VIC-II chip. 

MORE ON THE VIC-II 

Although the Commodore 64 has 64K of addressable locations, the VIC-l I 
is restricted to accessing only 1 6K blocks or banks at a time. By dividing 
the 64K into four distinct banks it is possible to alter which block is being 
looked at and so, all the 64K can be accessed. It is very important that at all 
times you are aware of which bank the VIC-II is using. 


Address 

(dec) 

Address 

(hex) 

Bank 

CIA 

Bit Pattern 

Value of 

Bit Pattern 

0000 

to 

16383 

0000 

to 

3FFF 

0 

1 1 

3 

16384 

to 

32767 

4000 

to 

7FFF 

1 

10 

2 

32678 

to 

49151 

0000 

to 

BFFF 

2 

01 

1 

49152 

to 

65535 

COOO 

to 

FFFF 

3 

00 

0 


Figure 1 5.1 Banks of Memory used by the VIC-II Chip 
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When the Commodore 64 is initially switched on the VIC-II points to bank 
0 . 

To change which bank is being accessed by the VIC-II we have to change 
some bits, known as bank select bits which are located in an I/O device 
called the 6526 Complex Interface Adapter Chip #2 (or CIA #2). The bits 
are located in the following registers: 

1.56578 (DD02 (hex)) - Set bits 0 and 1, which enable a change to be 
made. 

2. 56576 (DDOO (hex)) - Set bits 0 and 1 tothe bit pattern given in Figure 
1 5.1 that corresponds to the bank required. 

To be able to set/unset bits you must understand masking which was 
explained in Chapter 1 3 on Logical Operators. 

For example, to set the last two bits at address 56578 the value already 
there must be ORed with the value 3. 

i.e. 

XXXXXXXX 
OR 0 0 0 0 0 0 1 1 (3) 

X X x x xxn 

Likewise to set the last two bits at address 56576 to one of the bit 
patterns given in Figure 1 5.1, the value at 56576 must first be ANDed 
with 252 which turns off the first two bits and the new value obtained can 
be ORed with the bit pattern required. 

e.g. to set the VIC-II to point to bank 2, 


XXXXXXXX 
AND 1111110 0 (252) 

XXXXXXOO 


XXXXXXXX 
OR 00000001 (1) 

x x x x x x fcTfl 
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In BASIC, changing the bank that the VIC-II points at involves: 


Changing bank accessed by the VIC-II: 

POKE 56578, PEEK (56578) OR 3 

& 

POKE 56576, (PEEK (56576) AND 252) OR B) 
where B is the bit pattern given in Figure 1 5.1 


SCREEN MEMORY 

One of the things that the VIC-II controls is a section of RAM which 
contains the information that is currently displayed. One byte is used to 
store the character at each character position so, since there are 25 rows 
of 40 columns, 1000 bytes are required; these are arranged in the 
memory sequentially-one row after another. We can move the position of 
these 1 000 bytes to one of 1 6 positions within the 1 6K of RAM that the 
VIC-II is pointing to. This is done by setting the upper 4 bits of address 
53272 (D01 8 (hex)) to a bit pattern that corresponds to the required 
location. 


To set screen memory position: 

POKE 53272, (PEEK (53272) AND 1 5) OR B 
where B is the value of the 
bit pattern given in 
Figure 1 5.2 


The addresses available are given in Figure 1 5.2 but remember that they 
are relative to the first byte in the bank that the VIC-II is currently pointing 
to. 







Relative to Bank 

— 

Bit 

Pattern 

Of 53272 

Value 

of 

B 

Address 

(dec) 

Address 

(hex) 

00000 

0000 

OOOOXXXX 

0 

01024 

0400 

0001XXXX 

16 

02048 

0800 

0010XXXX 

32 

03072 

cooo 

0011XXXX 

48 

04096 

1000 

0100XXXX 

64 

05120 

1400 

0101XXXX 

80 

06144 

1800 

01 10XXXX 

96 

07618 

1C00 

01 11XXXX 

112 

08192 

2000 

1oooxxxx 

128 

09216 

2400 

1001XXXX 

144 

10240 

2800 

1 0 1oxxxx 

160 

11264 

2C00 

1011XXXX 

176 

12288 

3000 

11ooxxxx 

192 

1331 

3400 

1 101XXXX 

208 

14336 

3800 

111oxxxx 

224 

15360 

3C00 

1111xxxx 

240 


Figure 15.2 Positions for Screen Memory 


When the Commodore 64 is switched on, the screen position defaults to 
the locations commencing at address 1024 (0400 (hex)). 

We shall see later how to display characters on the screen by POKEing 
directly into the screen memory. Likewise we can find which character is 
at a certain position by PEEKing the corresponding character position. 


THE CHARACTER ROM 

In the Commodore 64 there is a 4K ROM character generator; that is, it 
contains the information on the appearance of the characters used by the 
computer. The binary representation of every eight bytes within this ROM 
contains the pattern for each character; every bit set represents a pixel dot 
set on an 8x8 grid that makes up the character. 
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e.g. The character 


Address 

Value 

Binary 

53912 

54 

00110110 

53913 

127 

01111111 

53914 

127 

01111111 

53915 

127 

01111111 

53916 

62 

00111110 

53917 

28 

00011100 

53918 

8 

00001000 

53919 

0 

00000000 

Figure 1 5.3 




Character 



The location of the character generator ROM in the Commodore 64's 
memory is 


Character 

Address 

Set 

(dec) 

(hex) 

Upper Case/Graphic 

53248- 

D000- 

Characters 

55295 

D7FF 

Upper/Lower Case 

55296- 

D800- 

Characters 

57343 

DFFF 


Figure 1 5.4 Location of character generator ROM 

There is, however, the complication that the addresses used by this ROM 
are also used by the I/O registers. So, how does the operating system 
cope with a section of memory being assigned two tasks? When we are 
trying to access one of these locations how do we know if we are referring 
to an I/O register or part of the character ROM? 

What happens is that the addresses normally refer to the I/O registers 
which have their values stored in RAM. Whenever the system requires 
character formation data the VIC-II accesses an image of the ROM which 
is overlayed on the above addresses; such an image does not affect the 
underlying values stored in the RAM. This important concept basically 
means that the section of memory concerned has two parallel set of 
independent locations, with one being accessed directly and the other 
through the VIC-II. 
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It is possibleto switch in the ROM memory accessed by the VIC-II sothat it 
can be read directly; this enables us to obtain the character formation data 
for such uses as enlarged characters or user defined graphics. To do so we 
must follow these five steps: 

1) Disable interrupts - an interrupt is a message from an I/O device to the 
microprocessor saying that it wants to be serviced. 

2) Switch out the I/O registers and overlay the addresses with an image of 
the character generator ROM. 

3) Access data - if the interrupts were not switched off and an interrupt 
occurred (such as keyboard input) then the system would probably crash 
since the I/O registers were unavailable. 

4) Switch I/O registers back in. 

5) Enable interrupts. 

This is done in BASIC by: 


Disable interrupts: 

POKE 56334, PEEK (56334) AND 254 
Enable interrupts: 

POKE 56334, PEEK (56334) OR 1 

Switch out I/O register and overlay 
character generator ROM: 

POKE 1, PEEK (1) AND 251 

Switch in I/O registers: 

POKE 1, PEEK (1) OR 4 


An interesting technique is to modify the standard characters. For 
example, the following program produces enlarged characters. 


18 REM #**^^###***#*^*** 
15 REM * ENLARGED * 

28 REM * CHARACTERS * 
25 REM 

38 REM * MRH 1/7/1983 % 

35 REM ***************#***^ 
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40 

REM 







45 

FOR 

1= 5324 

3 TO 

ctr-i 

■J-JC. 

97 

STEP 

9 

50 

POKE 

56334 

PEEK 

(563 

34) 

AND 

254 

55 

POKE 

1, PEEK 

< i) 

AND 

251 



60 

PR IN 

T KT 






65 

\ 

J-0 TO 

\ 





70 

BOD 

“PEEK CI+J> 





75 

NEXT 

.j 






80. 

poke 

1, PEEK 

< i > 

OR 4 





POKE 

56334.« 

PEEK 

(563 

O yf ‘‘j 

OR j 

L 

90 

PR 1N 

t 

DDRE 

C: C 0 

CON 

TENTS 

5 PATTERNS" 

9 5 

FOR 

J“0 TO 

*' 





i 00 

5 PR V 

NT T+,T; 

TAB 

< 1 0 > 

; Ti 

< J ) .; 

THE CIS); 

107 

i FOR 

K-7 TO 

0 S 

TEP 

-1 




119 KK*i=2tK 

115 PRINT CHRf( 032 + (134 AND OKJ> AND KK% >0 0 >); 

120 IF EKJ) > KKY. THEN DCJl-BCJ)-KK*i 
125 NEXT K 

130 PRINT 
135 NEXT J 

140 PRINT ">M9i#KKPRES8 SPACE BAR." 

145 FOR T~1 TO 300- NEXT T 
150 GET H$ 

155 IF THEN 158 

168 IF fitO" " THEN STOP 
165 NEXT I 


USER DEFINED CHARACTERS 

Although the character formation data is normally stored in ROM, it is 
possible to load it into RAM and then tell the VIC-11 to access it from its 
new position. This enables us to alter some of the data and create our own 
graphic symbols such as Greek letters, animals, musical notes, space 
invaders, aeroplanes, bombs, rockets, explosions, etc; the list is endless. 
A full character set occupies 256 x 8 or 2K bytes of valuable memory; it is, 
however, possible to use a smaller sub-set. 

The new character is defined by setting eight bytes to represent the 8x8 
grid of pixel dots that make up a character as in Figure 1 5.3. Initially, the 
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character should be drawn on a grid and next to each line, starting with the 
left hand pixel a '1' should be written for each filled square and a '0' for 
each blank square. The binary number can then be POKEd into the correct 
addresses. 

e.g. a space invader 


Character 


Binary 


Decimal 



01000010 66 

00100100 36 

10111101 189 

10111101 189 

11111111 255 

00111100 60 

00100100 36 

11100111 231 


Figure 1 5.5 


The next stage is to see where we are going to POKE these values. 

If you thought the ideas of ROM images were difficult to grasp-then brace 
yourself, there is more to come; this is all necessary since the VIC-II can 
only access 16K at a time. In addition to the character ROM image 
overlaying the I/O registers at the addresses given in Figure 1 5.4 there is 
a duplicate image at addresses 4096-8191(1 000-1 FFF (hex)) in bank 0 
and another at 36864 - 40959 (9000-9FFF (hex)) in bank 2. Again, it is 
very important at this stage to realise that these images are only apparent 
to the VIC-II so that the RAM at these locations is unaffected and so is still 
available by programs and data. 

Normally, the VIC-II, while pointing to bank 0 or 2 uses the VIC-M's ROM 
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images from these locations to create the characters displayed on the 
screen; note that in the other banks the ROM images are not available and 
so the characters displayed appear as an irrelevant jumble of dots. We can 
also tell the VIC-II to forget about images and look directly at other 
locations in the RAM for the character formation data. As before, if we do 
not put something at this new position that corresponds to the characters 
required we shall again get a meaningless display. The new character set 
can start at one of eight positions in each bank although there are specific 
locations in certain banks that are used by the system and so should be 
avoided 


e.g. 

0 used for system data 
2048 start of users BASIC program 
40960 start of BASIC interpreter 
(see memory layout Figure 14.1) 


We can control the location that the VIC-II expects to contain character 
formation data by setting bits 1 to 3 at address 53272 (D01 8 (hex)) to 
one of the values given in Figure 1 5.6 Note that the addresses given are 
relative to the first byte in the bank, thus to obtain the true location, the 
address of the first byte in the bank must be added. 


Relative to Bank 

Bit 

Pattern 

Of 53272 

Value 

of 

B 

Address 

(dec) 

Address 

(hex) 

00000 

0000 

XXXXOOOX 

0 

02048 

0800 

XXXX001X 

2 

04096 

1000 

XXXX010X 

4 

06144 

1800 

XXXX01IX 

6 

08192 

2000 

XXXX100X 

8 

10240 

2800 

XXXX101X 

10 

12288 

3000 

XXXX110X 

12 

14336 

3800 

XXXX11IX 

14 


Figure 1 5.6 Positions for character formation data 
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To do this in BASIC: 


Set position for character formation data: 

POKE 53272, (PEEK (53272) AND 241 ) OR B 
where B is the value 
of the bit pattern 
given in Figure 1 5.6 


As a demonstration, in Program 25 we shall downline load the character 
set from the ROM into the locations commencing at 1 2288 (3000(hex)). 
As before we must remember to turn off the interrupts. Before doing so 
we are going to 'trick' the computer into thinking that the last byte 
available for BASIC is 1 2287; this avoids our character generation data 
being overwritten and corrupted. We do this by setting two pointers 
which are stored with the system data; each is two bytes and contain the 
first address unavailable to BASIC. 


1. Address 51 /52 - Points to the highest address available for variables. 


2. Address 55/56 - Points to the highest address available for the BASIC 
program. 


When the pointers have been amended the memory layout will look like 
this: 


Address 

(dec) 

Address 

(hex) 

Contents 

00000 

to 01023 

0000 

to 03FF 

SYSTEM DATA 

01024 to 

02047 

0400 

t0 07FF 

SCREEN MEMORY 

02048 

to 

12287 

0800 

to 

2FFF 

BASIC PROGRAM 
& VARIABLES 

12288 

to 

16383 

3000 

to 

3FFF 

CHARACTER INFORMATION 
DATA STORED IN RAM 


AS USUAL 


Pointers 
indicating 
last bytes 
available 
for BASIC 
program 
and 
variables. 


Figure 1 5.7 
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To set the pointers to an address X: 

X — i2288 

H = INT (X/256) (High byte) 

L = X - 256 * H (Low byte) 

POKE 51, L 
POKE 52, H 
POKE 55, L 
POKE 56, H 


Everything that has been mentioned in this chapter will now be illustrated 
in Program 25. Try to recognize the important stages undertaken by the 
Program. 

Program 25 - USER DEFINED GRAPHICS DEMONSTRATION 

Id REM #####*#####*#####♦#*##**# 

15 REM % USER DEFINED GRAPHICS * 

20 REM * DEMONSTRATION * 

38 REM * MRH 1/7/1983 * 

35 REM #######*##*#*#*########## 

48 REM 

45 S=16 : B=3 : C=T2 

50 REM SET SCREEN POSITION 

55 POKE 53272,(PEEK(53272) AND 15) OR S 

60 POKE 56578..PEEK<56578) OR 3 

65 REM SET BANK 

70 POKE 56576,<PEEK<56576) AND 252) OR B 
75 X=C*1024 'H=INT <X/256)•L»X-256#H 
80 POKE 51,L : POKE 52,H 
85 POKE 55, L'-POKE 56,H 

90 PRINT "niflaUBSttegal CHARACTER SET LOADING FROM ROM TO RAM" 
95 PRINT CHR$<142) CHRf<8) 

100 POKE 56334,PEEK<56334) AND 254 

105 POKE 1,PEEK <1> AND 251 

110 FOR J= 0 TO 1023 

115 POKE J+12288,PEEKCJ+53248) 


125 




i 28 NEXT .T 

125 POKE 1, PEEK CD OR 4 

136 POKE 56334, PEEK (56334) OR 1 

135 PRI HI TRE(12 >;"% LORDED" 

140 REM SET CHARACTER SET POSITION 

145 POKE 53272, (PEEK (53272) AND 241) OR C 

150 PRINT "SMslsl PRESS SPACE ERR FOR INVERSE CHARACTERS" 

155 GET At 

160 IF A$0" " THEN 155 
165 FOR J= X+8 TO X+216 
178 POKE J,255-PEEK(J) 

175 NEXT J 

180 PRINT TAB<4)J"MM PRESS SPACE BAR FOR INVASION” 

185 GET fi$ 

190 IF A$<>" " THEN 185 

195 FOR J=12784 TO 12791 

208 READ D 

205 POKE J,D 

218 NEXT J 

215 PRINT "13" 

220 FOR J=1 TO 280 

225 PRINT "SI" > CHR$(62) 1” " 

230 NEXT 
235 END 

240 DATA 66,36,189,189,255,60,36,231 


In order that we can change the character formation data it is important to 
know the order of the characters in the character generation ROM so that 
we can POKE into the correct offsets. The order of the characters in this 
ROM is given in appendex B. 

MULTICOLOUR-MODE 

Up to now we have been restricted to having just two colours at every 
character position and changing them by using the colour control and 
reverse video keys. Now we shall look at a newtechnique which increases 
the colours available to four per character position whilst reducing our 
resolution by one half i.e. one character position is built up on a 4 x 8 grid 
of 'rectangular pixels'; each pixel being set to of the four possible colours. 
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Figure 1 5.8 

Because the resolution has been reduced, it is difficult, though not 
impossible, to use the multicolour techniques to any great advantage with 
only single characters. To switch into multicolour mode, bit 4 at address 
53270 (D01 6 (hex)) must be set. 


i.e. 


Switch on multicolour-mode: 

POKE 53270, PEEK (53270) OR 1 6 
Switch off multicolour-mode: 

POKE 53270, PEEK (53270) AND 239 


As well as setting this flag we have to control multicolour-mode at each 
character position; so we could, for example, have half the display in 
multicolour-mode and the other half in normal mode. This is done by 
setting bit 3 of the corresponding byte in the colour memory to 1 
otherwise the character will be displayed in normal mode. When the 
screen is scrolled upwards this bit will automatically be set for the data 
appearing at the base of the screen. 

The colour of each rectangular pixel in a character is dependent on the two 
bits of the character formation data as shown below. Of the four possible 
colours, three are stored at addresses 53281,53282 and 53282; the 
fourth is specified as normal by the value stored in the screen memory. 
The codes for the colours available on the Commodore 64 are given in 
Figure 1 5.1 1. 
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Bit Pair 

Colour 

Address 


°;° 


Background Colour #0 

53281 (D021 (hex)) 



Background Colour #1 

53282 (D022 (hex)) 



i 

Background Colour #2 

53283 (D023 (hex)) 


i ! i 


As normal 

Colour memory 


Figure 1 5.9 


e. 


0 + 


as before would look somewhat like this 


0 

0 

1 

1 

0 

1 

n 

0 

0 

1 

1 

1 

1 

1 

1 

1 

0 

1 

1 

1 

1 

1 

1 

1 

0 

1 

1 

1 

T 

1 

1 

1 

0 

0 

1 

1 

1 

T 

1 

0 

0 

0 

0 

1 

1 

1 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



Figure 1 5.1 0 


It can be seen that this, and similarly most other characters do not 
resemble their original character; this is one of the reasons why the 
multicolour-mode technique is not of great importance unless we 
introduce high resolution displays. The best use of this is to put the 
character set into RAM and then define your own multicolour shapes 
using four or more characters positioned next to each other. 

One point to notice is the ability to change colours on the display by a 
single POKE to one of the background colour addresses (53281/3). 
When this is done all the pixel dot pairs will change instantly. Some 
excellent effects can be created by this technique. For example, a display 
could be built up with all four colours set the same so that it would be 
"invisible". Then, by a couple of POKEs to the background colour 
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addresses, the complete display can be obtained at once. If several 
pictures are drawn, each using different background colours, it is possible 
to obtain some animated effects. This is done by displaying one of the 
pictures at a time by setting all the colours the same except one. The 
animation is created by alternating the colours so that all the pictures are 
obtained in succession. 

The colours available on the Commodore 64 and their colour codes are 
listed below. 


COLOUR 

CODE 

COLOUR 

CODE 

Black 

0 

Orange 

8 

White 

1 

Brown 

9 

Red 

2 

Light Red 

10 

Cyan 

3 

Grey 1 

1 1 

Purple 

4 

Grey 2 

12 

Green 

5 

Light Green 13 

Blue 

6 

Light Blue 

14 

Yellow 

7 

Grey 3 

15 


Figure 1 5.11 The Commodore 64's Spectrum 
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CHAPTER 16 


PEEK AND POKE GRAPHICS 


Now we have built up a repertoire of the Commodore 64's BASIC 
statements and have studied a little graphics we can expect to concentrate 
on presenting the screen in a more acceptable fashion. Probably every 
reader of this book will have a friend who, at first sight of your machine, 
will invite you to switch it on and expect to see graphics like those found in 
amusement arcades. We shall now take our first step towards such 
displays. 

Up to now we have seen two methods of amending the information 
displayed on the screen; these are: 

1) Clearing the screen with the control character CHR$(147) and then 
rebuilding the display; this is done line-by-line, each of which has to be 
stored and so uses up valuable memory space. This also has the 
disadvantage that the rebuilding can take a long time. 

2) Amending the required section of the screen by repositioning the 
cursor onto the correct position using the cursor control characters and 
then printing over the original section. 

A third method which was mentioned briefly earlier is to POKE characters 
directly into the screen memory. This technique also enables one to PEEK 
addresses in the screen memory to find out what characters are at certain 
positions on the screen. Another advantage over the previous two 
methods is that the amended screen is produced much faster. 

There are no definite rules for the programmmer to use when deciding on 
whether to use PRINT or POKE to display data; you just have to use your 
experience to assess which method would be more suitable for the task 
required. PRINT is both useful and fast for displaying large quantities of 
data. The problem arises with controlled PRINTing where the data is 
required to be displayed at a specified position. Whereas the computer 
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can undertake to PRINT quickly, the time required to calculate the 
positions and then to set up the cursor can be quite lengthy. This is further 
emphasised by the fact that Commodore BASIC lacks the command AT 
used in several other versions of BASICthatenablesthe userto set upthe 
cursor position by specifying the screen co-ordinates in the PRINT 
statement. This is one reason why it is difficult to write fast action arcade- 
type games in BASIC. 

However, using the POKE statement enables us to move small quantities 
of data about the screen at a speed which can give some very acceptable 
animated effects. With the Commodore 64's screen consisting of 25 
rows and 40 columns there are 1 000 bytes that can be POKEd. These 
bytes are ordered one row after another starting with the top left hand 
corner of the screen; the method of calculating the address of a particular 
character position is given below. 


Character at row R and column C: 

address = start of screen memory + C + 40 * R 


A further thing to remember is that when you POKE directly into the 
screen memory, the corresponding position in the colour memory must 
also be set; if this is omitted the displayed character will be the same 
colour as the background and so, obviously, will not be visible. Once the 
displacement from the first byte in the screen memory is calculated, 
setting the colour memory byte is just a matter of POKEing a colour value 
into the byte at the same displacement from the start of colour memory. 

Character at row R and column C: 

address = start of colour memory -I- C -I- 40 * R 


One important point that must always be remembered is the codes POKEd 
into the screen memory are not the same as the ASCII CHR$ codes. The 
PEEK/POKE codes are numbers which give the position of the characters 
in the character generator ROM. 

Using these PEEK/POKE codes rather than the normal ASCII codes 
enables the system to quickly access information on the format of the data 
to be displayed. The PEEK/POKE codes are listed in Appendix B. Because 
there are two different codes for characters, careful management of a 
program is required. 
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Address SM - the first address of screen memory 



Once the address of a character's position is known it is a simple task to 
reposition it onto one of its neighbouring positions. Rather than calculating a 
new column and row, the new location can be calculated by either adding - 
1 or +1 to move left or right, -40 or +40 to move up or down or a 
combination of these to move diagonal. 



-41 

\ 

-4 

A 

0 

k 

-39 

tz 




\ 

■ 

/ 

/ 

1 

L\ 




+ 39 

-1-40 

\ 

+ 41 








Figure 1 6.2 
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It is important to POKE a space into the original position if you don't want a 
trail to be left. 


An example that utilizes these techniques in Program 26, which demonstrates 
how we can control the movement of a character - a small ball - on the 
screen. The program also ensures that the character does not leave the 
screen (or we shall start POKEing undesired values into parts of the RAM 
other than the screen memory section). This is a simple task; first we set 
up a border around the screen and, from then on, we can detect the 
character hitting the border by PEEKing the position that the character is 
to be moved onto - if it is part of the border we leave the ball stationary. The 
controls which are used are shown below and are converted into the 
displacement values given in Figure 1 6.2 in order that the value of the 
character position can be amended. 

w 


Program 26 - CONTROL 



10 REM #**r*##**##*#*#** 

15 REM * CONTROL * 

25 REM * MRH 1/7/1933 # 

30 REM 
35 REM 

40 FOR J“0 TO 33 

45 SM=1024 '• CM=55296 :PC=560 

50 PRINT "IT 

55 INPUT "SMS HIDDEN LINE (V/N) ";Ft 
60 PRINT "IT 
65 FOR J=0 TO 39 

70 POKE SM+J.. 160 POKE SM+J+360.. 160 
75 POKE CM+J > 0 : POKE CM+J+960,8 

80 NEXT J 
85 FOR J= 0 TO 24 

90 POKE SM+40*J.'160 ; P0KE SM+48*J-l.. 169 
95 POKE CM+40*J , 9 POKE CM+49'* J-1.. 0 

190 NEXT J 

105 POKE PC+SM..31 ; POKE PC+CM > 7 
110 GET fl$ 


133 



115 IF A$="" THEN 140 
120 IF fi$= n P" THEN 60 
125 B= (39 AND fi*="Z">+(40 RHB fl$="X">+ 
(41 RHB flf-"C"> -IF BO0 THEN 140 
130 B=~(33 RHB fl$="E">-(40 RNB fit-"14")- 
(41 RNB fl$="Q") ; IF BO0 THEN 140 
135 B= ( 1 RNB fl$="B")-( 1 RNB flt="fi"> 
140 IF PEEK(SM+PC+B)=160 THEN 110 
145 POKE F’C+SM > 32+(55 RNB Ft="N") 

150 PC=PC+B 'GOTO 105 


We shall now take a look at two games that make use of this fast technique 
for moving characters about the screen. 

SNAKE 

In the game of 'Snake' a player takes control of a snake like figure on the 
screen which has to eat food that randomly appears for a limited time. If 
however the snake moves onto the border or onto itself then the game 
ends and the score obtained is displayed. When the food appears, a calory 
value is also displayed; this decreases with time so it is in the snakes 
interest to eat the food as soon as possible. As the snake eats up the food 
its length will grow in proportion to the amount obtained; however, a large 
snake is less controllable and so greater care is required. To move the 
snake to the left press key 'N' and to the right press key 'M'. 


Program 27 - SNAKE 

10 REM 

15 REM * SNAKE * 

20 REM *===============* 

25 REM * MRH 1/7/1933 * 

30 REM %%M*%********%%% 

35 REM 

40 BIM S(1000) : R(1>=40 : fi(2)=l :fi(3>=-40 :R(4)=-1 

45 SM-1024 : CM=55296 ■HS=0 

50 SC=0 '• T=1521 : H=1525 :L=5 :>1 PRINT "T 

55 FOR. K=CM TO CM+999 :R0KE K,7 -NE'/J K 

60 FOR K=SM TO SM+33 ^POKE Y-.> 160 ^POKE K+40,160 '-POKE 
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K+960,160 : NEXT K 

65 FOR K-SM TO SM+968 STEP 40 -POKE K,i60 'POKE K-1,16 
0 ; NEXT K 

70 FOR K=T TO H 'POKE K,87 ; NEXT K 
75 FOR K=1 TO L :S<K)=T+K-1 'NEXT K 
80 PH=L+1 '• PT~1 

R5 PRINT "JM3MSCORE".:SC.:TRBC12>;"LENGTH";L;TAB<24>;"HI 
OH SCORE"j HS 
90 GET K$ 

95 IF K$="N" THEN J-J+l 'IF J=5 THEN J=1 

100 IF Kf="M" THEN J-J-l ; IF J=0 THEN J=4 

105 H-H+fl<J) : SQ=PEEK(H) •V-SQ-48 

110 IF SQ=160 THEN 195 

115 IF SQ=87 THEN 195 

120 IF SQ=32 THEN 130 

125 F-F+V = SOSC+V 'CV=0 :L=L+V 

130 S<PH)=H '• PH=PH+1 

135 POKE H/37 

140 IF FO0 THEN F=F-1 • GOTO 150 
145 POKE S(PT),32 :PT=PT+1 
150 IF PT>1000 THEN PT=1 
155 IF PH>1000 THEN PH-1 
160 IF RNDC0X0.01 THEN CV=9 

165 IF CV<10 THEN CV-0 'IF PEEK<CP>087 THEN POKE CP, 

32 

170 IF CVO0 THEN CV-CV-1 : F'0KE CP,INT<CV/10>+48 :GOTO 
185 

175 IF RNIK0K0.8 THEN 185 

130 CV-100 •■CP=Sf1+1000#RND(0) : IF PEEK<CP><>32 THEN 180 
185 FOR K=1 TO 50 -NEXT K -REM THIS DELflV CRN BE REDUCEB 
TO SPEED UP GAME 
190 GOTO 85 

195 IF SOHS THEN HS=SC 

200 PRINT "Md SCORE";SC; TflB<12>;"LENGTH";L;TflBf 24) 

HIGH SCORE";HS 
205 FOR K«1 TO 200 : NEXT K 

210 PRINT "XNWmntMaPRESS SPACE BAR TO CONTINUE" 

215 GET K$ ■IF K$=" " THEN 50 
220 GOTO 215 
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SURROUND 


Our second example of PEEK/POKE graphics is a game in which the 
player and the computer are each in control of drawing a line. The controls 
are W (up), 'X' (down), 'A' (left) and 'D' (right). If none of these keys are 
pressed then the line will continue to be drawn in its current direction. 
Also,a key that forces the lineto return back onto itself will be ignored.The 
object of the game is to survive for a longer period of time than your 
Commodore opponent without moving onto either line or the border. 

Program 28 - SURROUND 

10 REM ***************** 

15 REM * SURROUND * 

20 REM *=============«* 

25 REM * MRH 1/7/1983 * 

30 REM ***************** 

35 REM 

40 FOR J *1 TO 8 : REflB fKJ) :NEXT J 
45 SM=1024 : CM=55296 :BT =0 
50 BATA 40.-40.1.-1,40;-40,1,-1 
55 PRINT «T :F0R K=CM TO CM+999 '• POKE M .7 : NE y T Y 
60 FOR K=SM TO SM+39 ^POKE K, 160 : POKE K+40,160 :priKE 
K+960,160 ; NEXT K 

65 FOR K=SM TO SM+960 STEP 40 :P0KE K,160 :P0KE Y- 1 1 
60 : NEXT K ' 

70 XM=A < I NT ( RNIk: 0) *4+ 1 )) : VM*fl<INT(RND< 0)#4+ll) :v=^ 
0 :v=545 ■T=TIME U 1 =l 

75 POKE SM+X.160 :P0KE CM+X.3 = P0KE SM+V,160 :POKE CM 
+V > 5 

80 FOR K=1 TO 40 : REM DELflV TO AFFECT SPEED OF GAME 
85 PRINT TIME "; INK (TIME-TV60); TABf20 V, 

" BEST TIME ";BT 
90 M=0 : GET Y.$ 

95 IF K$="D" THEN M=1 
100 IF K$=''A" THEN M=-l 
105 IF K$="W" THEN M=-40 
110 IF Kf="X" THEN M=40 
115 IF M=-XM THEN 125 
120 IF MO0 THEN XM=M 
125 X=X+XM 
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130 IF PEEK<SM+X>032 THEN GOTO 215 
135 PUKE yf'l+N, 160 : PuKE CH+X.'3 
148 IF RNB(8)>0.9 THEN 165 
145 FOR ,.T=1 TO 3 

150 IF PEEK<SM+V+JsfcVM)032 THEN 165 

155 NEXT J 

160 GOTO 200 

165 M=INT(RNB(0)*4+1I 

170 FOR F~1 TO 3 

175 FOR Q=M TO M+3 

ISO Vri=fiCQ) 

185 FOR R=1 TO 4-P 

190 IF PEEK<SM+Y+R#VM)032 THEN 205 

195 NEXT R 

200 V=V+Vn : POKE SM+Vj 160 =POKE CM+V.,5 -GOTO 85 
205 NEXT Q:NEXT P 

210 print vov win !! " : goto 220 

215 PRINT "WIIHII I WIN ! ! " 

220 T= <TIME—T>X60 : IF T>BT THEN BT“ INT<T> 

225 FOR T=1 TO 2000 -NEXT T 

235 PRINT PRESS SPACE BAR TO CONTINUE " 

240 GET K$ ' IF K$~~" " THEN 55 
245 GOTO 240 


Extended Background Colour Mode 

There is one final technique that can be useful with PEEK/POKE graphics 
that enables us to control the background colour of a character position. 
The ‘extended background colour mode’ is switched on by setting bit 6 of 
address 53265 (D011 (hex)). 


Switch on ‘EBCM’ 

POKE 53265, PEEK (53265) OR 64 
Switch off ‘EBCM’ 

POKE 53265, PEEK (53265) AND 191 
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This mode does, however, have the drawback that the available character 
set is reduced to the first 64 characters given in Appendix B. The reason 
for this is that the screen memory is used slightly differently from normal. 
The first six bits are used as normal, i.e. representthe PEEK/POKE code of 
the character displayed; the two most significant bits are used to select 
one of four possible background characters that are stored at addresses 
53281/4. The value stored at these locations will be a value between 0 
and 1 5 each of which represents one of the colours listed in Figure 1 5.1 1. 


Bit 6/7 Of 

Screen Memory 

PEEK/POKE Code 
for CHR$(X) 

Background 

Colour Address 

0 0 

0 + X 

#0 53281 (D021 (hex)) 

0 1 

64 + X 

#1 53282 (D022 (hex)) 

1 0 

128 + X 

#2 53283 (D023 (hex)) 

1 1 

192 + X 

#3 53284(D024(hex)) 




CHAPTER 17 


HIGH RESOLUTION 
GRAPHICS 


Initially we considered the Commodore 64's display screen as being 
divided up into 25 lines of 40 characters; we then went on to see how 
each character position was further divided into an 8 x 8 grid of smaller 
Pixel dots that could be set on or off. The next display mode we shall look at 
consists of the display screen being built up of 320 x 200 pixel dots each 
of which can be controlled to be either on or off. Unfortunately, the 
Commodore 64's BASIC lacks such commands as PLOT or UNPLOT as 
found on other versions of BASIC which make the control of individual 
pixels simple. To make reference to a specific pixel unambiguous in our 
discussions we shall label them with a two number co-ordinate (r,c) where 
r is the row and c is the column that the pixel lies in. 

e.g. 
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Such a display is usually called either high resolution or bit mapped. Since 
each pixel can be either on or off, one bit is allocated for each to indicate to 
the system what state it is in. Thus it can be seen that a mammoth 320 x 
200 bits or 8000 bytes are required to control the screen. 

The next question is: how are the 8000 bytes arranged in the memory? If 
you recall, in the character display mode chapter, the character generator 
contained 8 bytes for each of the 1 28 different characters and you could 
select which of the group of eight bytes you required at a particular 
position. The high resolution mode works very similarly; in this case the 
memory contains eight bytes for each of the 1000 programmable 
characters, and each one is assigned automatically to one unique 
character position on the display. The characters are arranged in the 
memory row-by-row, starting with the top left. Thus, to change a particular 
pixel, a bit in the group of eight bytes representing the particular character 
position has to be altered. The start of the character memory is controlled 
by the bits 1 -3 of address 53272, see Figure 1 5.6. 

Since there is no suitable BASIC command available, we need a method of 
accessing the particular bit representing a pixel (r,c); this will now be 
given, although the only important part to note is the result. The location of 
the bytes for the 1000 character positions are shown in Figure 1 7.2; 
using this we shall develop a procedure for accessing the required bit for 
pixel (r,c). 


199 

0 

1 

COLUMN 

38 

39 


0- 

8- 




303- 

312- 



7 

15 




311 

319 



320- 

328- 




624- 

632 



327 

335 




631 

639 






PIXEL (r,c) 




- 


ROW 



! 







7360- 

7368- 




7664- 

7642- 

23 


7367 

7375 




7671 

7679 


7680- 

7688- 




7984- 

7992- 

24 

0 

7687 

7695 


i 


-7791 

7999 

l 

0 


C 



31 

9 ^ 


Figure 17.2 Arrangement of Memory Containing Pixel Dot Information 
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It should be noted that the addresses given in Figure 1 7.2 are relative to 
the location from which the character memory commences. 

The first stage is to calculate which row and column pixel (r,c) lies in; using 
a little mathematics this is found to be: 

row = 24 - I NT (r/8) 

and 

col = I NT (c/8) 

i.e. a pixel (r,c) lies in the row 24 - INT (r/8) and column INT (c/8); 
considering this character position we find: 

8 bytes 

24 - INT (r/8) 

INT (c/8) 

Figure 1 7.3 

The first byte of this character will be: 

a = row * 40 + col * 8 
Pixel (r,c) will lie in the byte: 

8 + 7 - (r AND 7) { by the masking technique 

gives the remainder 
when r is divided by 8} 
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= row * 40 + col * 8 4- 7 - (r AND 7) 

(replacing 'a' from above) 

= (24 - INT (r/8)) * 320 4- INT (c/8) * 8 4- 7 - (r AND 7) 
(rearranging) 

= 7687 - INT (r/8) * 320 4 INT (c/8) * 8 - (r AND 7) 


Also the individual bit within this byte is given by: 

b = 7 - (c AND 7) (masking again) 

It is not too important to remember exactly how these results are arrived at 
- but you do need to refer to the results themselves 


Location of bit representing pixel (r,c) 

byte = 7687 - 320 * INT (r/8) + 8 * INT (c/8) - (r AND 7) 

bit = 7 - (c AND 7) 

To set pixel: 

POKE byte, PEEK (byte) OR 2Tbit 


To switch on high resolution display mode we must set bit 5 at address 
53265 (D01 1 (hex)). 


i.e. 


To switch on high resolution graphics: 

POKE 53265, PEEK (53265) OR 32 
To switch off high resolution graphics: 
POKE 53265, PEEK (53265) AND 223 
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If you have already gone ahead and switched into high resolution mode 
you will have noticed that the display screen has turned into a multicolour 
jumble of dots. Clearly, in any program the first thing we must do is clear 
the section of RAM containing the characters and colours. We have 
already seen that the character memory commences at the address given 
by the bits at address 53272 (Figure 1 5.6). The colours, however, do not 
come from colour memory as you would expect but from the screen 
memory (see Figure 1 5.2). The colours for each character position are 
given by the upper and lower 4 bits of the corresponding byte in the 
screen memory. The upper 4 bits give the colour of any pixel that is set and 
the lower 4 bits give the background colour of the character position; the 
colour codes are given in Figure 1 5.1 1. 

We shall now continue and look at some examples using high resolution 
graphics. All the programs will contain three identical blocks of code and a 
fourth that is unique tothe example. The three common blocks are used to 
initialise the screen, to plot a pixel (r,c) and to return to character display 
mode. 


line 1 0 

INITIALISATION 

line 1 000 

GRAPHIC PROCEDURE 

line 2000 

PLOT PIXEL 

line 3000 

RETURN TO NORMAL 


MODE 


The three common 
blocks will only be 
listed for the first 
example. 


When execution has ceased, 
press any key to return to 
normal character display 
mode. 


Figure 1 7.4 
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Example: 


CIRCLES 

The co-ordinates of the points on a circle are given by (a Cos 6, a Sin#), 
where a is the radius of the circle. 

y 

(a Cos 6 , asinfl) 


Figure 17.5 


If we let 8 change from 0 to 277 we obtain all the points on the circle. 

Program 29 - CIRCLE 

10 REM M#M**MM**#**MW*W4MW*M 


15 REM % HIGH RESOLUTION GRAPHICS # 
20 REM * MAIN CODE * 
25 REM *=============================)* 

30 REM % MRH 1/7/1983 * 


35 REM 
40 REM 

45 REM *** INITIALISATION *M 
50 PRINT "3" 

55 S = 16■ B=3 ; D=8 ^SM=1024 

60 POKE 53272, (PEEK(53272) AND 15) OR S 

65 POKE 56578,PEEK<56578) OR 3 

70 POKE 56576,(PEEK<56576) AND 252) OR B 

75 X-B*1824 ; H= INT (X/256) '■ L-X-256*H 

80 POKE 51,L ; POKE 52, H 

85 POKE 55,L-POKE 56,H 

90 FOR -J=SM TO SM+999 

95 POKE J,1 

100 NEXT J 
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105 FOR J=X TO X+7999 
110 POKE J,0 
115 NEXT .J 

120 POKE 53272,(PEEK(53272) AND 241) OR D 

125 POKE 53265,PEEK<53265) OR 32 

130 GOSUB 1000 

135 GOSUB 3G00 

140 STOP 


1000 REM *** GRAPHIC PROGRAM ### 

1005 REM - CIRCLE - 

1010 READ RADIUS,XX,VV 
1015 PP=2#ir 

1020 FOR J—0 TO F'P STEP PPX4G 
1025 C=XX+RADIUS*COS<J) 

1030 R=W+RABI US*S IN < J) 

1035 GOSUB 2000 
1040 NEXT J 
1045 RETURN 
1900 DATA 55,160,100 


2000 REM *** PLOTTING *** 

2005 BYTE=X+7687-320*INT<R/8)-<R AND 7)+INT<C/3)#8 
2010 BIT=7-<C AND 7) 

2015 POKE BVTE,PEEK(BYTE) OR 2TBIT 
2020 RETURN 

3000 REM *## RETURN TO CHAR. DISPLAY MODE 
3005 GET Q* 

3010 IF Q$="" THEN 3005 

3015 POKE 53265,PEEK<53265) AND 223 

3020 POKE 53272,<PEEK<53272) AND 240) OP 4 

3025 PRINT " 3 " 

3030 END 
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ELLIPSES 


The co-ordinates of the points on an ellipse are given by (a Cos 6, b Sin 6) 


Figure 1 7.6 



If we let 6 change from 0 to 2 77 we obtain all the points on the ellipse. 


Program 30 - ELLIPSE 


1000 REM *** GRAPHIC PROGRAM *** 

1005 REM - ELLIPSE - 

1010 READ fifi,BB,XX,VV 
1015 PP=2*tr 

1020 FOR J=0 TO PP STEP PP/40 
1025 C=XX+AA#COSCJ> 

1030 R=VV+EB#SIN < J > 

1035 GOSUB 2000 
1040 NEXT J 
1045 RETURN 

1900 DATA 100,55,160,100 


SINE WAVE 


The next example plots a sine wave 


Program 31 - SINE WAVE 


1000 REM ### GRAPHIC PROGRAM *## 
1005 REM — SINE WAVE — 

1010 FOR J=0 TO 6*tr STEP ir/20 
1015 C*J*50Xir 
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1020 R=i00+75*3IN<J) 
1025 GOSUB 2060 
1030 NEXT J 
1035 RETURN 


EPICYCLICS 


Program 32 will plot a curve from the family of curves known as epicyclics. 
Try experimenting by changing the argument in Cos (1*2/3) to other 
values, for example Cos (1*4/3). 


Program 32 - EPICYCLICS 


1000 REM *** GRAPHIC PROGRAM *** 
1605 REM — EPICYCLIC — 

1010 FOR J=0 TO 6*ir STEP it/40 
1015 C= 160+75*COS(J*2/3 ) *C0S(J) 

1020 R=100+75*COS(J*2/3)*SIN<J) 
1025 GOSUB 2060 
1830 NEXT J 
1035 RETURN 


SPIRALS 

Program 33 produces a pattern by superimposing several spirals. 
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Program 33 - SPIRALS 


1080 REM ##* GRAPHIC PROGRAM #*# 

1085 REM - SPIRALS - 

1815 LET XX-160 LET VV=100 
1020 FOR 22=0 TO 17 STEP 0.1 
1825 FOR WW=8 TO 3 STEP 0.5 
1030 C=XX+5#ZZ#C0S(WU+ZZ) 

1835 R=V V+5#ZZ#S IN <WW+ZZ) 

1840 GOSUE 2080 
1045 NEXT m 
1050 NEXT 22 
1055 RETURN 


ETCHER SKETCHER 


In our next example, the program allows pictuires to be drawn by plotting 
lines and curves at the control of the user. The direction of a plotted line is 
chosen by selecting one of the following keys. 



By pressing key '9' (RVS ON) we can plot the line in the background 
colour; this is useful if part of the picture is required to be erased or if the 
current plot position is to be moved elsewhere without leaving a trailing 
line. Our common section of code for plotting a pixel has been amended in 
order that it can either plot or unplot a pixel (r,c). 


By pressing key 'O' (RVS OFF) we can return out plotted line to normal 
colour. 

To return to normal character display mode press key 'N'. To clear the 
screen press key 'P'. 


Program 34 - ETCHER SKETCHER 

1000 REM ##* GRAPHIC PROGRAM ### 
1005 REM — ETCHER-SKETCHER -- 
1015 R=100 :C=160 ■F=1 
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1020 GOSUB 2000 
1025 GET 0$ 

1030 IF Q$="" THEN 1025 

1035 IF 08 AND C0$="0" OR OR Q$="Z") THEN C= 

-1 

1040 IF CC319 AND <Q$="E" OR 0$="D" OR Q$="C"> THEN i> 
C+l 

1045 IF R>0 AND C0$="Z" OR Q$="X" OR 0$="C"> THEN R=R 
-1 

1050 IF RC199 AND <0$="0" OR 0$="W" OR Qt="E") THEN R= 
R+l 

1055 IF 0$="9" THEN F=1 

1060 IF Q$="8" THEN F=0 

1065 IF Q$="R" THEN 1070 

1066 GOTO 1020 
1070 RETURN 

2000 REM *** PLOTTING *** 

2005 BVTE=X+7687-320#INT<R/3>-<R AND 7)+INT<C/3)*8 
2010 BIT=7-<C AND 7) 

2015 IF F=0 THEN POKE BYTE;PEEK(BYTE) AND (255-2tBIT) 

: GOTO 2025 

2020 POKE BYTE;PEEK(BYTE) OR 2TBIT 
2025 RETURN 
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THREE DIMENSIONAL PLOTTING 


The next program demonstrates that it is possible to draw a function of 
two variables as three dimensional solid surfaces. To see howthe program 
works, consider Figure 1 7.7. The picture is built up by plotting parallel 
curved lines at positions on the screen which by plotting parallel curved 
lines at positions on the screen which relate to the value at the plotted 
position. 

If you referto Figure 1 7.7,you will see thatweare generating onesliceata 
time, from the front to the back of the 'solid' surface. 

To produce the 3-dimensional effect, the program considers the line ST 
and all lines parallel to it, and calculates the value of the function at the 
points where the straight lines meet the curved lines. The point is plotted 
on the screen at a position which takes into account the value of the 
function and also what curved line is being considered. However to give 
the impression of a solid surface, the point would only be plotted if there 
was no surface in front of it, thus a point is only plotted if the y co-ordinate 
of the plot position is higher than any previous value found on the line 
being considered. 

Try replacing the function line with your own ideas, however, they must be 
scaled so that the plotting does not leave the screen. 


Function 

evaluated 

here 


T 



Plotted 

curved 

lines. 


Figure 17.7 Three Dimensional Plotting 
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Program 35 - THREE DIMENSIONAL PLOTTING 


10 REM **************** 

15 REM * 3D GRAPHICS * 

20 REM *==============* 

25 REM * MRH 1/7/1983 * 

38 REM **************** 

35 REM 

40 8=16 ; B=3 : C=3 : SM=1024 

45 POKE 53272,(PEEK(53272) AND 15) OR S 

50 POKE 56578,PEEK(56578) OR 3 

55 POKE 56576,(PEEK(56576) AND 252) OR E 

60 X=C*1024 : H=INT(X/256) :L=X-256*H 

65 POKE 51,L : POKE 52,H 

70 POKE 55,L ; POKE 56,H 

75 POKE 53272,(PEEK(53272) AND 241) OR C 

80 POKE 53265,PEEK(53265) OR 32 

85 FOR J=SM TO SM+999 

90 POKE J,1 

95 NEXT J 

100 FOR J=X TO X+7999 
105 POKE J,0 
110 NEXT J 
115 FOR L=0 TO 127 
120 M=SQR(16129-L*L) 

125 MAX=-1E9 

130 FOR N=-M TO M STEP 4 
135 V=25*(SIN(0.001*(L*L+N*N))) 

140 P=V+N/4+88 

145 IF ROMAN THEN 165 

150 MAX=P 

155 R=P -0=160-1 ; GOSUB 1000 
160 C=160+L ■GOSUB 1000 
165 NEXT N 
170 NEXT L 

175 GET Y-.% -IF KTO" " THEN 175 
180 POKE 53265,PEEK(53265) AND 223 
185 POKE 53272,(PEEK(53272) AND 240) OR 4 
190 STOP 

1000 BYTE=X+7687-320*INT(R/8)-(R AND 7)+INT(C/8)*8 
1005 BIT=7-(C AND 7) 
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1810 POKE BVTE,PEEK(BYTE) OR 2 TBIT 
1015 RETURN 


Another BASIC command that the Commodore 64 lacks is DRAW (X,Y) 
which plots a line from the current plot position, say (CC,RR) to a new 
position X units horizontally to the right (left if negative) and Y units 
vertically upwards (down if negative). 

e.g. DRAW (20,-30) 


20 



Figure 1 7.8 


The next example uses a common block of code commencing at line 4000 
to simulate this command. To use it in your own programs set XX and YY 
to the horizontal and vertical displacements required and (RR,CC) to the 
co-ordinate of the current plot position. The new plot position will 
automatically be assigned to (RR,CC). 

Program 36 - STRING PATTERN 

1000 REM *** GRAPHIC PROGRAM *** 

1005 REM — STRING PATTERN — 

1015 FOR P=0 TO 180 STEP 10 
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1020 c=70+p : R=10 '-GOSUB 2000 : RR=R =CC=C 

1025 XX=1S0-P :VV=P 'GOSUB 4000 

1030 XX=-P ■VV=1S0-P : GOSUB 4000 

1035 XX=F'-180 =VV=-P : GOSUB 4000 

1040 XX=P : VV=P-180 ■GOSUB 4000 

1045 NEXT P 

1050 RETURN 

4000 REM *** DRAW 

4005 IF hBS<XXXABS(VV> THEN 4050 

4810 FOR J=CC TO CC+XX STEP SGN(XX) 

4815 C=J : IF XX=0 THEN R=RR -GOTO 4025 

4020 R=VV/XX# <J-CC)+RR 

4025 GOSUB 2006 

4030 NEXT J 

4035 GOTO 4080 

4050 FOR J=RR TO RR+VV STEP SGN<VV) 

4055 R=J 

4060 IF VV=0 THEN C=CC ^GOTO 4070 

4065 C*XXXVV#<J-RR)+CC 

4070 GOSUB 2000 

4075 NEXT J 

4080 CC=C : RR=R 

4085 RETURN 
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MULTICOLOUR MODE 


As with character display mode it is possible to instruct the Commodore 
64 to interpret the bits in the character formation data as groups of two 
bits to give four possible colours. As before this results in a loss of 
resolution. 

The bit patterns representing the following colours are: 


Bit Pair 

Colour Data 


0'0 

Background Colour 


0 '1 | 

Colour stored in upper 

4 bits of screen memory 


1 !° 1 

Colour stored in lower 

4 bits of screen memory 


| 1 11 | 

Colour stored in colour 
memory 


Figure 1 7.9 


To switch into multicolour mode from normal high resolution mode we 
must set bit 4 at address 53270 (D01 6 (hex)). 


Switch on multicolour mode: 

POKE 53270, PEEK (53270) OR 16 
Switch off multicolour mode: 

POKE 53270, PEEK (53270) AND 239 
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SMOOTH SCROLLING EFFECTS 


With the aid of the VIC-II we have the facility to scroll the screen one pixel 
at a time in one of the four directions: up, down, left or right. The VIC-II 
allows us to position the screen at one of eight horixontal positions and 
one of eight vertical directions on the display screen, each position being 
one pixel displaced from the next. To obtain the scrolling effect we 
position the screen at each horizontal or vertical position (depending on 
the required direction) which gives a movement of eight pixels. We then 
have to use some routine to quickly reposition the characters in the screen 
memory one complete character position in the direction of the scroll and 
at the same time reposition the screen to the first pixel position. By 
continually repeating this, a smooth scroll is achieved. To move the 
characters in the screen memory we require a machine code routine in 
order that the movement is fast; using a BASIC program with POKEs 
would be far too slow. If we are scrolling vertically upwards we could use 
the automatic scrolling undertaken by the system software which occurs 
whenever printing has reached the base of the screen; this, however, is 
not perfect as it causes a slight flicker. 


We can convert the conventional 25 x 40 character screen into a 24 row 
and/or 38 colu mn display in order that the items that are being smoothly 
scrolled onto the screen do not suddenly appear. Although fewer columns 
and rows are visible, the original characters are still present to be printed 
on - they just are not visible. This is done by unsetting bit 3 at addresses 
53270 (D01 6 (hex)) and 53265 (D01 1 (hex)). 


38 column mode: 

POKE 53270, PEEK (53270) AND 247 
40 column mode: 

POKE 53270, PEEK (53270) OR 8 

24 row mode: 

POKE 53265, PEEK (53265) AND 247 

25 row mode: 

POKE 53265, PEEK (53265) OR 8 
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The eight possible screen positions are controlled by the lower 3 bits at 
addresses 53270 (D01 6 (hex)) and 53265 (D011 (hex)). 


X horizontal position 

POKE 53270, (PEEK (53270) AND 248) OR X 
Y vertical position 

POKE 53265, (PEEK (53265) AND 248) OR Y 


This is demonstrated in the next program. 
Program 37 - VERTICAL SCROLLING 


18 REM a################## 

15 REM * VERTICAL SCROLL * 

28 REM *===="===========* 

25 REM * MRH 1/721983 * 

38 REM **##########*###### 

35 REM 

48 POKE 53265,PEEK(53265) AND 247 
45 PRINT "IT 

50 FOR J=1 TO 24 -PRINT '■ NEXT J 

55 POKE 53265,(PEEK(53265) AND 248)+7 =PRINT 

60 PRINT " sia GETTING MORE FROM VOUR 64 

65 FOR J=6 TO 3 STEP -1 

70 POKE 53265,(PEEK(53265) AND 248)+J 

80 NEXT J 

85 GOTO 55 
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CHAPTER 18 

SPRITES 


At last we have reached the interesting topic of 'sprites'; these are user 
defined mobile shapes that are controllable in several ways and as a result 
give the Commodore 64 some of the best graphic facilities that are 
available on a microcomputer. Having specified the shape and the colours 
of the sprite along with the position required on the screen, the VIC-II 
undertakes all the processing needed to display the sprite. Since this 
operation is controlled by an item of hardware instead of our BASIC 
program, it is quite feasible for us to write some fast action displays. With 
the VIC-II we can control up to eight sprites at any one time. 


SPRITE FORMATS 

If you recall how we produced user defined characters, you'll remember 
that we defined new characters on an 8 x 8 grid built up of pixel dots; by 
setting the bits within the eight bytes that represented the character we 
could select which pixels were required to be on or off. Similarly, a sprite is 
built up of pixels on a 21 x 24 grid and so requires 63 bytes to record the 
pixel data. 

Each byte will contain the state of 8 of the pixels in the sprite. Thus, we 
need 63 numbers, (which can be stored in a DATA statement until POKEd 
into RAM) to represent our sprite. An additional byte is used to indicate 
the end of the sprite formation data. Each sprite has a byte allocated to it 
known as the sprite pointer which specifies whereabouts in the RAM and 
64 numbers are stored. This sprite pointer has a value between 0 and 255 
and when multiplied by 64 gives the location of this data relative to the 
first byte in the bank currently being accessed by the VIC-II. 


e.g. in bank 0, if a sprite pointer contains 1 90 then the sprite data 
commences at address 1 90 * 64 = 12160 
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Byte 63 indicates Bit Set to '1' if pixel coloured 

the end of else set to '0' 

sprite formation data 


Figure 1 8.1 The Sprite Grid - 21 x 24 Pixels 

Sprite data may not however be situated at a position where character 
ROM images are present. 

The sprite pointer registers are the last eight bytes of the 1 K of screen 
memory; remember that only 1 000 bytes are actually used for screen 
data. 

Also, if the screen memory is repositioned then the sprite pointers are 
moved accordingly. 


Normal Sprite Pointer Registers 

Sprite 

Address 

(dec) 

Address 

(hex) 

Sprite 0 

02040 

07F8 

Sprite 1 

02041 

07F9 

Sprite 2 

02042 

07FA 

Sprite 3 

02043 

07FB 

Sprite 4 

02044 

07FC 

Sprite 5 

02045 

07FD 

Sprite 6 

02046 

07FE 

Sprite 7 

02047 

07FF 


Figure 18.2 Sprite Pointer Registers 
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Switching On Sprites 


To switch on a sprite, i.e. make it visible, a bit representing the sprite at 
address 53269 (DOI 5 (hex)) has to be set; this byte is know as the Sprite 
Enable Register. 


7 6 5 4 3 2 1 0 bit 


Sprite No. 


“1- 1- i- 1-i-1-1- 

76543210 

_j _i_i_i_i_i_i_ 


53269 


Similarly to switch off a sprite the same bit has to be unset, 
i.e. 

To switch on sprite no. S 

POKE 53269, PEEK (53269) OR 2TS 
To switch off sprite no. S 

POKE 53269, PEEK (53269) AND (255-2TS) 

Sprite Colour 

A sprite may be any one of the 1 6 available colours as given in Figure 
15.1 1; for each sprite there is one byte which contains the colour of the 
pixels that are set. Any unset pixel will take the colour of the background 
and so appears transparent. 


Sprite Colour Registers. 

Sprite 

Address 

(dec) 

Address 

(hex) 

Sprite 0 Colour 

53287 

D027 

Sprite 1 Colour 

53288 

D028 

Sprite 2 Colour 

53289 

D029 

Sprite 3 Colour 

53290 

D02A 

Sprite 4 Colour 

53291 

D02B 

Sprite 5 Colour 

53292 

D02C 

Sprite 6 Colour 

53293 

D02D 

Sprite 7 Colour 

53294 

D02E 


Figure 18.3 Sprite Colour Registers 
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Positioning Sprites 


The final thing that we need to know before we can see a sprite 
demonstration program is how to position and move sprites on the screen. 
All that we need to do is tell the VIC-II the co-ordinates on the screen 
where the top left hand corner of the sprite is to be placed. 



Figure 18.4 Sprite Located at Position (x r y) 

Note that the screen co-ordinates are different from those used in the high 
resolution chapter and that they do not commence at 0. By having screen 
positions that are just off the visible section of the screen it is possible to 
move a sprite gradually onto the screen rather than the whole sprite just 
suddenly appearing at the edge. 

Each sprite has an X and a Y register assigned to it; these contain its 
position co-ordinates which for X, lies in the range 0 to 51 1, and for Y, lies 
in the range 0 to 255. This leads to a slight problem for the X co-ordinates 
since a register is limited to a number in the range 0 to 255; an additional 
register is therefore used which contains the eig ht most significant bits for 
the X registers. Thus if an X co-ordinate is greater than 255 then the 
corresponding bit in the X m.s.b. register is set and the X register restarts 
counting from 0. 
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7 6 5 4 3 2 10 bit 


Sprite no. [7l6!51413,'2Tlj0l most significant bits register 53264 
The sprite position registers are situated at the following addresses: 


Sprite Position Registers 

Sprite 

Address Address 

(dec) (hex) 

Sprite 0 X coord. 

Sprite 0 Y coord. 

53248 D000 

53249 D001 

Sprite 1 X coord. 

Sprite 1 Y coord. 

53250 D002 

53251 D003 

Sprite 2 X coord. 

Sprite 2 Y coord. 

53252 D004 

53253 D005 

Sprite 3 X coord. 

Sprite 3 Y coord. 

53254 D006 

53255 D007 

Sprite 4 X coord. 

Sprite 4 Y coord. 

53256 D008 

53257 D009 

Sprite 5 X coord. 

Sprite 5 Y coord. 

53258 DOOA 

53259 DOOB 

Sprite 6 X coord. 

Sprite 6 Y coord. 

53260 DOOC 

53261 DOOD 

Sprite 7 X coord. 

Sprite 7 Y coord. 

53262 DOOE 

53263 DOOF 

X m.s.b. register 

53264 D010 


Figure 18.5 Sprite Position Registers 
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The sprite formation data will be stored in DATA statements ready to be 
POKEd into the RAIVl commencing at address (192 * 64) or 12288. 
Program 39 displays and controls the movement of these sprites; to move 
the rocket up press key 'X' and to move down press key Z, to release the 
bomb press key 'B'. Any other key will cause the rocket to change to a 
horizontal motion. 

When controlling the sprites a test has to be made for the horizontal co¬ 
ordinate reaching 255 in order that the most significant bit register is set 
accordingly. When the sprite has reached the right hand side of the 
display the sprites X co-ordinate is reset to zero so that the rocket can 
cross the screen again; when this is done it is advisable to switch off the 
sprite otherwise the sprite will appear briefly at the centre of the screen. 
The reason this happens is that when the X co-ordinate is reset we have to 
POKE into two separate bytes. For the short period of time between the 
first and second POKE the X co-ordinate will have a value that the VIC-II 
will interpret as a position near the centre of the screen. 

Program 38 - ROCKET SPRITE 

10 p.eh mmmmnmmnmmmm 

15 REM * SPRITE DEMONSTRATION * 

29 REM 

25 REM % MRH 1/7/1983 % 

30 rem 

35 REM 

40 81 = 192 : C1 =7 ’• 82= 193 •02=7 
45 SP=2 • V~ 100 ••PRINT "3" 

50 POKE 2040,SI -POKE 53287,Cl 
55 POKE 2041,82 : POKE 53283,C2 
60 FOR J=0 TO 127 
65 READ D 
70 POKE S1#64+J,D 
75 NEXT J 

80 H=8 *B=0 : POKE 53248,0 -POKE 53264,8 

85 POKE 53269,1 

98 FOR X=0 TO 350 STEP SP 

95 IF X>255 THEN H=1 -POKE 53264,PEEK(53264) OR 3 
180 POKE 53248,X-256*H •POKE53250,X-256*H 
105 GET K$ 

110 IF K$=" H THEN GOTO 120 

115 D=<1 AND K$=*"Z”)-a AND K$= n X n ) 

120 IF V+D<220 AND V+D>50 THEN Y=V+D 
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125 POKE 53249., V 

1.30 IF K$="B" RNIi B=0 THEN BV=V = B=1' T=0: POKE 53251 
,BV -POKE 53269,3 

135 IF BV>250 THEN POKE 53269,1 = B=8 

140 IF B=1 THEN T=T+0.1 :BV=BV+T : POKE 53251,BV 

145 NEXT X 

150 POKE 53269,252 

155 GOTO 90 

1000 REM - CROCKET DATA] - 

1005 BATA 0,0,0,0,0,0,0,0,8,127,0,0,49,128,8,24,192, 
0,12,96,0 

1010 BATA 127,255,224,48,9,56,112,0,15,43,8,56,127, 
255,224,12,96,0,24,192,0 

1815 BATA 49,128,0,127,0,8,0,0,0,8,0,0,0,0,0,0,0,0,0 

, 0 , 0,0 

1028 REM -[BOMB BFiTfl]- 

1025 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
1838 BATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
1035 BATA 0,51,0,0,30,0,0,63,0,0,63,8,8,30,8,0,8,0, 
0 , 0 , 0,8 
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FURTHER SPRITE FACILITIES 

We shall now look at some further features that we can use with our sprite. 

Expanded Sprites 

Each sprite may be expanded to twice its dimension in a vertical and/or 
horizontal direction. The sprite still contains the same number of pixels 
and the resolution does not increase; all that happens is the pixels appear 
larger. To expand a sprite horizontally we have to set a bit at address 
53277 (D01 7 (hex)). Likewise to expand a sprite vertically we must set a 
bit at address 53277 (D01 D (hex)). 


7 6 5 4 3 2 1 0 bit 


Sprite no. 


76543210 


53271 or 53277 


Expand sprite no. S horizontallly 

POKE 53277, PEEK (53277) OR 2TS 
Contract sprite no. S horizontally 

POKE 53277, PEEK (53277) AND (255 - 2TS) 
Expand sprite no. S vertically: 

POKE 53271, PEEK (53271) OR 2TS 
Contract sprite no. S vertically: 

POKE 53271, PEEK (53271) AND (255 - 2TS) 


For example we can improve the appearance of our rocket sprite in 
Program 39 by adding the statement, POKE 53277, 1. 
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SPRITE PRIORITIES 


When sprites are moved about the screen there are bound to be times 
when they cross over each other. So, there need to be fixed rules over 
when each sprites appear in front of the other. Each sprite is given a 
priority value which is fixed. Sprite 0 has the highest value and so will 
appear in front of all other sprites, sprite 1 has the next highest priority and 
appears in front of all the sprites with the exception of sprite 0. Sprite has 
the next highest value and so on up to sprite 7 which always appears 
behind the other sprites. The three dimensional effects that this can cause 
are illustrated in Program 39 which shows how sprites can appear 
through other sprites which contain holes. 

Program 39 - SPRITE PRIORITIES 

i 0 rem 

15 REM # 3D SPRITES # 

20 REM #======a====™=# 

25 REM * MRH 1/7/1983 # 

30 REM ##**###*######### 

35 REM 

40 PRINT "niKWTHREE DIMENSIONAL EFFECT OF SPRITES" 

45 S=192 
50 FOR -J=0 TO 7 
55 READ COL 

60 POKE 53287,COL 'POKE 2840+J,S 

65 POKE 53249+2*J,160+4*J 

76 POKE 53248+2*J,180+4*J 

75 NEXT J 

30 FOR J=0 TO 63 

85 READ D :P0KE S*64+J,D 

98 NEXT J 

95 POKE 53281,0 -POKE 53280,0 

100 POKE 53277,255 :POKE 53271,255 'POKE 53269,255 
185 GET Kt '■ IF K$=" 11 THEN 105 
110 POKE 53269,0 
115 END 

1000 REM — COLOUR DATA -- 
1005 DATA 1,3,4,7,8,10,11,12 
1010 REM — SPRITE DATA -- 
1015 DATA 255,255,255 

1020 DATA 192,0,3,192,0,3,192,0,3,192,0,3,192,0,3, 
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192/8..3,. 192.0.3 

1025 DRTfl 192,0,3,192,0,3,1928,3 ..192,8,3, 
192,. 0,3 

1830 DFlTft 192,0,3,192,0,3,192,0,3,192,0,3, 
192,8,3 

1835 DRIB 255,255,255,9 


192,0,3, 

192,0,3, 


Note how we have used one set of sprite formation data for all eight sprites 
simply by setting all eight sprite pointers to the same position. 

ANIMATION USING SPRITES 

By rapidly changing the value stored in the sprite pointer it is possible to 
alter the sprite formation data to give a series of frames and an animated 
effect. This is demonstrated in program 40 which displays the four frames 
below which illustrate a bird like figure flapping its wings. 


Figure 18.8 





Program 40 - ALTERED IMAGES 

10 rem ***************** 

15 REM * IMAGES * 
20 REM *===============* 

25 REM * MRH 1/7/1983 * 

38 REM ***************** 
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35 REM 

40 S= 192 '• X= 140 : V~ 120 :PRINT "J 

45 POKE 53281,3 : POKE 53280,3 : POKE 53237,11 

50 POKE 53269,1 : POKE 53277,8 '-POKE 53271,0 

55 FOR J=8 TO 3 

68 FOR 1=0 TO S3 

65 READ B -POKE <S+J>*64+I,B 

70 NEXT I : NEXT J 

75 FOR J=1 TO 6 

80 READ B :R<J)=D 

85 NEXT J 

90 FOR J=1 TO 6 

95 POKE 2040,S+PCJ) 

100 POKE 53248,X 
105 POKE 53249,V 
110 LET X=X+ (. RNB < 0) #2-1) 

115 LET V=Y+<RNB(0>*2-1> 

128 IF X<24 OR X>255 OR V<50 OR V>218 THEN X=140 :y=l 
20 

125 NEXT J 
138 GOTO 90 

1000 REM — IMAGE ONE — 

1005 DATA 0,0,0,0,8,0,0,0,0,0,0,0,24,0,24,24,0,24,24,0 
24,28,0,56 

1010 DATA 14,60,112,7,126,224,2,219,192,0,255,0,0,255, 

0,0,102,0 

1015 DATA 0,60,0,0,102,0,0,195,0,0,0,0,0,0,0.0.0,0.0.0 

0,0 

1100 REM -- IMAGE TWO — 

1105 DATA 0,8,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0 
1110 DATA 56,0,23,124,60,62,254,126,127,103,219,230,1, 
255,128,1,255,128,0,102,0 

1115 DATA 0,60,0,0,102,8,0,195,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0,0 

1208 REM — IMAGE THREE — 

1205 DATA 0,0J0,0,8,0,0,8,0,0,0,0,0,0,0,0;0,0,0,0,0,0, 

0,0 

1210 DATA 0,60,0,0,126,0,3,219,192,15,255,240,62,255, 
124,248,102,31 

1215 DATA 224,60,7,0,102,8,0,195,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0,0 
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1308 REM IMAGE FOUR -- 

i 385 IiRTfl 0.8.00,0,0,0,0,8,0, @, 0«8,0,8,8,8 = 8,8,8,8,0 
, 8,0 

1310 CRTfi 0,68.8,0,126 ■ 8.8,219,8* 7.255.224,31.«255.248 
• 56.. 182,28 

1315 DfiTfl 48,68,12,48,102, \ 2,36,135,6,8,8,8,8,8,8,8,8 
, 8,8,888 

1488 REM — IMAGE ORDER — 

1485 DATA 8,1.2.3.. 2.1 
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Sprite to display character priorities are dependent on eight bits at address 
53275 (D01 B (hex)). Each bit is set if the corresponding sprite is required 
to have a lower priority than the display characters, similarly it is unset if 
the sprite is to have a higher priority. 


7 6 5 4 3 2 1 0 bit 


Sprite no. b^S^S^illo 


53275 


Collision Detection 

A very useful facility with sprites is the ability for the VIC-II to detect 
collisions with other sprites or display characters; the collisions only occur 
when pixels that are set collide - not just the 21 x 24 grid area. Sprites that 
are involved in such a collision have their corresponding bit set at address 
53278 (D01 E (hex)) for a sprite/sprite collision and at address 53279 
(D01 F (hex)) for a sprite/character collision. Once these addresses have 
been examined by PEEKing the bits are automatically reset. Using the 
features in this chapter we can now write fast action arcade type games in 
BASIC. 


Program 41 - GRAND PRIX 

10 REM ##**##**#####*##* 

15 REM * GRAND PRIX * 

20 REM *==============*# 

25 REM * MRH 1/7/1983 * 

30 REM **#*#****#***#### 

35 REM 

40 GOSUB 700 :REM INITIALISE 

45 GOSUB 600 : REM START 

50 IF PEEK<53273)=3 OR PEEK<53279>=1 THEN 500 
'■REM COLLISION DETECTED 
55 GOSUB 200 :REM CONTROL CAR 1 

60 GOSUB 300 :REM CONTROL TRACK. 

65 GOSUB 400 : REM CONTROL CAR 2 

70 SC=SC+1 '■ GOTO 50 
75 : 

200 K=PEEK<197) : REM KEV CURRENTLY PRESSED 
205 X=X+3*(<X>25 AND K*39)-<X<315 AND K-36)) 
210 H=INT(X/256) : L=X-256*H 
215 POKE 53249.Y 'POKE 53248.L -POKE 53264.H 
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228 RETURN 
225 '• 

300 PRINT SPC(P); 

305 ON B+2 GOTO 310.. 315,320 
310 PRINT " / /" '-GOTO 325 

315 PRINT "I i " '-GOTO 325 

320 PRINT "\ 

325 B= 1NT <RNB< 8 >#3-1) : P=P+B 
330 if P<1 OR P>22 THEN P=P-B '•11=0 
335 RETURN 
340 • 

400 IF F=0 THEN XX=P*3+78 : YY=*255 ’-POKE 53269.3 -F=l 
:POKE 53238. INT(RND(0)#4+4> 

405 IF F=1 THEN YY=YV-9 

410 IF VY<30 THEN F=2 

415 IF F=2 AND RND<0»0.9 THEN F=@ 

420 POKE 5325l.VY -POKE 53250..XX 
425 RETURN 
430 : 

500 POKE 53269.0 

505 FOR J=1 TO 4 

510 POKE 53281.7 

515 FOR T =1 TO 150 : NEXT T 

528 POKE 53231.2 

525 FOR T=1 TO 150 : NEXT T 

530 NEXT J 

535 POKE 53281.11 

540 IF SOHS THEN HS=SC 

545 PRINT "SB® SCORE ";SC 

550 PRINT "MH HIGHEST SCORE ";HS 

555 PRINT "WSW PRESS ANY KEY TO CONTINUE " 

560 WAIT 197.191 : REM PAUSE UNTIL KEY IS PRESSED 
565 GOTO 45 
570 : 

600 PRINT "3" 

605 FOR J =1 TO 24 : PRINT -NEXT J 
610 P-INT<RND<0)*5+8> =D =0 :F =0 
615 SC=0 : X®160 

620 POKE 53250.0 -POKE 53251.0 :POKE 53249.Y 
: POKE 53248.X 

625 POKE 53279.0 ; POKE 53278.0 :POKE 53269.1 
630 RETURN 
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635 - 

700 POKE 53269,0 

705 S=192 -POKE 2040,S :POKE 2041,8 
710 FOR >0 TO 63 
715 READ V : POKE 3*64+J,V 
720 NEXT J 

725 POKE 53277,0 -POKE 53271,0 

730 POKE 53276,3 -POKE 53286,0 ^POKE 53287,2 

735 PRINT "IISM GRAND PRIX " 

740 INPUT "MB ENTER LEVEL (1-5) ";LV 
745 IF LV<1 OR LV>5 THEN 735 
750 POKE 53281,11 'POKE 53280,0 
755 HS=0 :V=60+LV#25 : X=160 
760 RETURN 

780 DATA 0,170,0,12,170,48,14,170,176,14,170,176,12, 
170,48,0,170,0,0,170,8 

785 DATA 0,170,0,0,170,0,0,170,0,0,170,8,0,178,0,8, 
170,0,0,40,0,3,40,192 

790 DATA 3,170,192,3,170,192,3,40,192,0,40,0,0,40,0, 

0 , 0 , 0 , 0 , 8 , 0,0 
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Designing Sprites 


The final program of this chapter is a routine which will enable a 
programmer to quickly produce the data required for sprite formation. All 
instructions are given in the program. 

Program 42 - SPRITE EDITOR 

10 REM ###########*##### 

15 REM * SPRITE EDITOR * 

20 REM *==========*====* 

25 REM * MRH 1/7/1983 * 

30 REM ################# 

35 REM 

40 POKE 53281,0 ■POKE 53280,0 -POKE 53269,0 
45 PRINT "[ISM SPRITE EDITOR " 

50 PRINT "m USE SCREEN EDITOR TO DRAW SPRITE WITHIN 
DATA STATEMENTS GIVEN" 

55 PRINT "M RNV CHARACTER WILL BE INTERPRETED AS A 
PIXEL SET" 

60 PRINT "M MOVE CURSOR TO TOP LINE AND THEN PRESS 
RETURN 21 TIMES" 

65 PRINT "M TVPE •'RUN 100" TO CONTINUE 
70 PRINT u mm PRESS ANY KEY TO COMMENCE" 

75 WAIT 197,191 
80 PRINT "21"; 

85 POKE 53281,11 -POKE 53280,11 
90 LIST 10000-10220 
95 END 

100 PRINT "."MM SPRITE EDITOR " 

105 POKE 53281,0 ■POKE 53280,0 -DIM VC62) : S=192 

110 FOR 1=0 TO 28 

115 READ m 

120 FOR J=0 TO 2 

125 B$=MID$<A$,8#J+1,8> 

130 N=0 

135 FOR K=1 TO 8 
140 C$=MID$<B$,K,1> 

145 N=2*N+<1 AND C$0" ") 

150 NEXT K 
155 V<3#I+J)=N 
160 NEXT J 
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165 NEXT I 

170 FOR 1=0 TO 20 

175 FOR J=0 TO 2 

180 PR I NT TAB < J*5 >; V < 3* I + J) 

185 POKE S*S4+I*3+J,V<3*I+J> 


190 NEXT J 
195 PRINT 
208 NEXT I 
205 POKE 2040,S 

210 POKE 53248/220 -POKE 53249,120 
215 POKE 53269,1 -POKE 53287,7 
220 END 


18000 data "*m**$**$***m-**m******" 
10010 BflTfi 


10020 DRTfl 
10030 BfiTfl 
10043 BflTfi 
10050 BflTfi 
10068 BflTfi 
10070 BflTfi 
10080 BflTfi 
10098 BflTfi 
10100 BflTfi 
10110 BflTfi 
10120 BflTfi 
10130 BflTfi 
10140 BfiTfl 
10150 BflTfi 
10160 BfiTfl 


"mwmnnwMMwmmM" 
" mm*w****m******Mm* " 
"*♦♦***|(******$$********** " 

" ****'********************" 
" Mtmmwmmw********* " 

" ***'#*##****##*#S(!**Si!*)|<*** " 


10170 BflTfi 
10180 BfiTfl 
10190 BflTfi 
18200 BfiTfl 
10210 REM 
10220 REM 


" #**#*'**#*#***#**#*#*****" 
ENTER BflTfi STATEMENTS 
RUN 100 


174 



MULTICOLOUR SPRITES 


In order that sprites can contain pixels of up to four different colours, any 
sprite can be switched into multicolour mode. Like multicolour characters, 
the colours obtained are dependent on bit pairs in the formation data. 
Again, like multicolour characters, the resolution of a sprite will be 
reduced by one half from 24 pixels across to 1 2 double pixels; this loss in 
resolution is more than compensated by the ability to create some 
excellent coloured sprites. The colours displayed by the different bit 
patterns are: 


Bit Pair 

Colour Displayed 

o 1 0 

Screen colour 

o : i 

Sprite multicolour #0 stored 
at address 53285 (D025 (hex)) 

i ! o 

Sprite colour register 

1 ! i 

Sprite multicolour #1 stored 
at address 53286 (D026 (hex)) 


To switch a sprite into multicolour mode the corresponding bit at address 
53276 (D01C (hex)) 


7 6 5 4 3 2 10 bit 


Sprite no. 




532/6 


Sprite no. S in multicolour mode: 

POKE 53276, PEEK (53276) OR 2TS 
Sprite no. S in normal colour mode: 

POKE 53276, PEEK (53276) AND (255- 2TS) 

Note that in collision detection, the sprite multicolour #0 is taken to be 
transparent. 
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RASTER REGISTER 


When a television screen is scanned it builds up the picture line by line. 
The line number that is currently being scanned is stored at the raster 
register which is located at address 53266 (D01 2 (hex)) and the most 
significant bit of 53267 (D01 3 (hex)). 


7: e; 5 ; 4 ; 3; 2 ; i 


bit 


Address 53267 


53266 


Raster 

Register 


If you ever go on to use machine code on your Commodore 64 you can use 
this register for some excellent effects; unfortunately, the BASIC interpreter 
is far too slow to be of any use with such techniques. The effects available 
basically involve timing changes. For example, the fast execution of 
machine code programs is liable to cause screen flickering when using 
sprites. This can be overcome by moving and redisplaying the sprites 
while the television is scanning part of the display which is not in the 
visible region, i.e. when the value in the raster register is less than 50 or 
greater than 249. 



Figure 18.9 Raster Register Values 
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We could use a similar technique to display certain parts of the screen in 
high resolution mode and the remaining parts in normal character display 
mode. This is done by switching from one display mode to another as the 
raster register reaches certain values. For example, consider a high 
resolution screen with the top and bottom two lines in normal character 
display mode. Such a screen is achieved by continually monitoring the 
raster register; when it reaches 66 the screen is put into high resolution 
mode and when it reaches 234 it is returned to normal character display 
mode. Unfortunately this technique is only feasible with machine code to 
obtain the necessary speed. 

INTERRUPTS 

Experts on 6510 machine code programming will be able to use the 
technique of interrupts to detect when the raster register has reached 
specified values. 

Interrupts occur when certain conditions have arisen, the processor then 
leaves whatever it was doing and undertakes to do another bit of 
processing and then on completion jumps back to what it was previously 
doing - all rather similar to a BASIC subroutine.A particular example on the 
Commodore 64 is the keyboard interrupt; every 1/60th of a second 
control leaves whatever it was doing and checks to see what key, if any, is 
being pressed. 

Three useful interrupts that can be detected with sprites on the Commodore 
64 are when the raster count is equal to a stored value, a sprite/character 
or sprite/sprite collision occurs. 

When one of these interrupts occurs, the corresponding bit of the 
interrupt status register at address 53273 (D019 (hex)) becomes set; 
once set the bit must be cleared before another interrupt can be detected. 


Bit at 
53273 

Condition 

0 

Current raster count 
= stored raster count 

1 

Sprite/character collision 

2 

Sprite/sprite collision 


Figure 18.10 Sprite Interrupts 
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In order for an interrupt to occur when the raster register reaches a 
required value, the value must first be POKEd into the raster register. The 
interrupt will then take place as soon as the raster count reaches this value. 

One final point, in order to detect these interrupts, the corresponding bit 
(0, 1 or 2) of the Interrupt Enable Register ataddress 53274 (D01A hex ) 
must be set. Thus, it is possible to select which interrupts are required. 



CHAPTER 19 

SOUND AND THE 
COMMODORE 64 


There will, no doubt, be many owners of the Commodore 64 who when 
choosing a microcomputer were swayed towards their machine because 
of the excellent sound facilities that it boasts. Our next topic is to 
investigate these features and see what sounds can be produced. It 
should be pointed out at this stage that there is only room in this book to 
scratch the surface of the subject since the topic is so immense. 

Commodore have produced a book specialising on the subject called 
'Making Music on yourComputer' which isworthwhile reading foranyone 
who really wants to learn more on the subject. Also, anyone whose main 
interests lie in the subject, are advised to purchase some of the additional 
software that is available which enables the user to access the sound 
features more easily. 

CHARACTERISTICS OF SOUND WAVES 

Ourfirst step is to examine the characteristics of sound waves. We all have 
plenty of experience with sound in everyday life and know that different 
sounds can be distinguished - but what makes one sound different from 
another? Each sound is made by a transfer of energy caused by the 
disturbance of air from one point, called the source, to the ear. The 
difference in the sounds are effected by three factors i) pitch ii) quality and 
iii) volume. 

If the source oscillates f times a second, the sound emitted is said to have a 
frequency of Hz (Hertz). Also if the energy travels a distance of X from the 
source in one second then the sound produced has a wavelength ofX. 

This can be represented diagramatically as in Figure 19.1 
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distance 


The pitch of a note is dependent on the frequency of the sound wave 
produced; a high frequency produces a high pitched note and a low 
frequency produces a low pitched note. The musical interval between two 
notes is proportional to the ratio of the frequencies rather than the 
difference. Thus, the difference in pitch to the ear is the same if a note 
increases from 250 Hz to 500 Hz as from 1 000 Hz to 2000 Hz. If one 
note has twice the frequency of another then the two notes are said to be 
one octave apart. 

A tune which is played on several different musical instruments can still 
be distinguished even if exactly the same notes are played. This is because 
the quality of the waveforms from each instruments differ. For example, 
while a tuning fork would produce a waveform like that in Figure 1 9.1, a 
musical instrument would probably look more like that in Figure 19.2. 



Figure 1 9.2 Waveform produced from Some Musical Instrument 
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CONTROLLING THE SOUND FEATURES 


Just as with the graphic facilities which were mainly controlled by an item 
of hardware, i.e. theVIC-ll, the sound facilities are controlled by the 'Sound 
Interface Device' (or SID). The sound output obtained from the SID 
consists of three voices emitted from three identical oscillators. Each of 
the voices can emit sounds with one of four different waveforms, i.e. 
sawtooth, triangular, pulse and white noise as in Figure 1 9.3 to 1 9.6. It is 
the waveforms that gives the sound some of its distinctive properties. It is 
also possible to 'AND' the waveforms which is like merging the two 
together which can give us even more flexibility to produce some 
interesting sounds. 




Figure 1 9.4 Triangular Waveform 



Figure 19.5 Pulse Waveform 
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Figure 19.6 White Noise 



To make a sound there are four properties of it that we must let the SID 
know about; these are 

1) Volume 

2) Waveform 

3) Frequency 
and 4) ASDR 

The SID also needs to know from which voices the sounds are emitted 
from. The values for each of these properties are given to the SID by 
POKEing values into the SID control registers at addresses 54272 to 
54300 (D400 - D41C (hex)). 

Referring to Appendix E (which gives these registers) it can be seen that 
voice 1 is controlled by registers 54272 - 54278, voice 2 by 54279 to 
54285 and voice 3 by 54286 to 54292; the remaining registers have 
other specific uses. To some users the idea of POKEing values into the 
SIDs control registers and the lack of any suitable BASIC sound statements 
may seem rather unfriendly; others however will preferthis direct method 
of control. 

Our first step is to see how to set these properties to obtain a sound. 


VOLUME 


The volume of the sound is set to a value in the range 0 to 1 5 by POKEing 
the value into address 54296 (D41 8 (hex)). AvolumesettoO will turn off 
the sound. 


To select Volume V (0 - 1 5): 
POKE 54296, V 
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WAVEFORM 


The waveform required is selected by setting one of the following bits plus 
bit 0 at addresses 54276 (D404 (hex)), 54283 (D40B (hex)) or 54290 
(D41 2 (hex)) depending on the voice required. 


Waveform 

Bits Set 

Triange 

0 & 4 

Sawtooth 

0 & 5 

Pulse 

0 & 6 

White Noise 

0 & 7 


Figure 1 9.7 

Bit 0 is known as the gate bit, when set the note is sounded, when unset 
the note is switched off. 


To set a triangular waveform 

in voice V 

(1-3): 

POKE 54276 + (V-1) 

* 7, 17 


To set a sawtooth waveform 

in voice V 

(1-3): 

POKE 54276 + (V-1) 

* 7, 33 


To set a square waveform in 

voice V (1 

-3): 

POKE 54276 + (V-1) 

* 7, 65 


To set a white noise waveform in voice 

V (1 -3): 

POKE 54276 + (V-1) 

* 7, 129 



With a pulsewave the proportion of the high displacement to the low 
displacement must be specified. 
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High A 


► 


Low 


Figure 19.8 Pulse Waveform 


If the high displacement is X% of the total, then a pulse width of 40.95 xX 
has to be stored. The pulse width is stored using 12 bits with the 8 least 
significant bits at 54274 (D402 (hex)), 54281 (D409 (hex)), 54288 
(D410 (hex)) and the four most significant bits at 54275 (D403 (hex)), 
54282 (D40A (hex)), 54289 (D41 1 (hex)) all depending on which voice 
is required. 

To set a pulse width of X% in voice V 

P = X * 40.95 
H = INT (P/256) 

L = P - 256 * H 

POKE 54274 + (V-1) * 7, L 
POKE 54275 + (V-1) * 7, H 


FREQUENCY 


The frequency value is a number between 0 and 65535, and is stored 
using 16 bits at addresses 54272/3 (D400/1 (hex)), 54279/80 
(D407/8 (hex)) or 54286/7 (D40E/F (hex)) depending on the voice 
required; the latter address in each case contains the most significant 
byte. 

The frequency output, in Hertz, is approximately 3/50ths of the stored 
value. 

To set frequency value F(0-65535) for voice V 


HF = INT (F/256) 

LF = F - 256 * HF 

POKE 54272 4- (V-1) * 7, LF 
POKE 54273 + (V-1) * 7, HF 
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ADSR 


There are four more items that must be specified for each voice called 
attack, decay, sustain and release each of which has a value in the range 0 
to 15. 

When a note is sounded there are four stages of loudness which are 
heard; these are: 

1) Initially the volume increases from zero to its maximum value at a rate, 
called the attack. 

2) It then falls back to an average volume at a rate called the decay. 

3) This average volume is then sounded; the proportion of the peak 
volume to this average volume is called the sustain level. 

4) Finally, the volume falls back to zero at a rate called the release. 
These parameters are called the ADSR values. 



BIT 

SET 


Figure 19.9 The ADSR Envelope 
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The attack, decay and release rates with their corresponding values that 
have to be stored are listed in Figure 1 9.1 0. 


Value 

Attack Rate 

Decay Rate 

Release Rate 

0 

2ms 

6m 

6ms 

1 

8ms 

24ms 

24ms 


1 6ms 

48ms 

48ms 


24ms 

72ms 

72ms 


38ms 

1 1 4ms 

1 1 4ms 


56ms 

1 68ms 

1 68ms 


68ms 

204ms 

204ms 

7 

80ms 

240ms 

240ms 

8 

1 00ms 

300ms 

300ms 

mmm 

250ms 

750ms 

750ms 

m 

500ms 

1.5s 

1.5s 

11 

800ms 

2.4s 

2.4s 

12 

Is 

3 s 

3 s 

13 

3s 

9 s 

9 s 

14 

5s 

15s 

15 s 

15 

8s 

24 s 

24 s 


Figure 19.10 Attack, Decay and Release Rate Values 


The attack rate is stored in the upper 4 bits and the decay rate in the lower 
4 bits at addresses 54277 (D405 (hex)), 54284 (D40C (hex)) or 54291 
(D41 3 (hex)) depending on the voice required. Similarly the sustain level 
is stored in the upper 4 bits and the release rate in the lower 4 bits at 
address 54278 (D406 (hex)), 54285 (D40D (hex)) or 54292 (D414 
(hex)) again depending on the voice required. 


To set attack rate A (0-1 5), decay rate D (0-1 5) in voice V: 

POKE 54277 + (V-1) * 7, A * 1 6 + D 
To set sustain level S (0-1 5), release rate R (0-1 5) in voice V: 
POKE 54278 + (V-1) * 7, S * 1 6 + R 
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Our first program to utilise the Commodore 64's sound facilities in 
Program 44 which plays a famous tune 'Fur Elise'. The notes of the tune 
have their frequencies stored in DATA statements; by replacing these 
values you can produce your own tunes - Figure t 9.1 1 should assist the 
musical readers to obtain the notes they require. Remember that the 
musical interval between two notes is proportional to the ratio of their 
frequencies and notes that are one octave apart have a frequency ratio of 
2; thus the frequency of any note can easily be calculated. 

Another improvement that can be made on program 43 for your own 
tunes is to include a second parameter in the DATA statements that gives 
the duration of each note. 


9301 10440 12415 13935 15742 

\ / \ / / 

C# D# F# G# A# 



Figure 19.11 Frequency Values 

If you ever use more than one voice (on your 64!) it is important to co¬ 
ordinate the timing of them. One method with BASIC programming is to 
use three arrays with each corresponding element containing the three 
frequencies that are to be sounded simultaneously. 

Program 43 - FUR ELISE 

10 REM a##*##**#****#**# 

15 REM * FUR ELISE * 

20 REM *====—======:==# 

25 REM * MRH 1/7/1983 * 

30 REM 
35 REM 

48 : B=8 : S=15 •R=8 : V=15 :BR=115 : M=33 ; PRINT "T 

45 POKE 54277, fi*16+B 
58 POKE 54278,S*16+R 

55 POKE 54296,V 

56 POKE 54276,W-l 
60 DIM N < 35> 

65 FOR J=0 TO 2 
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70 RESTORE 

75 FOR 1=0 TO 11 

SO REfiB V •H<J*12+I>=V*(2tJ) 

S5 NEXT 1 
90 NEXT J 

95 BfiTR 2145,2273,2488,2551,2703,2864.. 3034,3215,3486, 
3698.. 3823.. 4858 
108 READ V 

105 IF V<0 THEM POKE 54276,W-l : END 
118 r =: N( V, ; H-Ih I 11-/256) : L~F~256$H 
115 POKE 54272,L : POKE 54273,H 
128 POKE 54276,W 


125 F 

:QR T= 

•1 TO DR 

CVT t 

ur, 1 i 








130 F 

Ur-..c •_ 

42 >' b , 1*4 1 









135 i 

30TQ 1 

00 









1 000 

DATA 

16,15,16,1 

5 • 16, 1 1 

•t A 

X • T , 

1 2 

, 9 

,9 

4 

, 9 

, 11 

1 305 

BfiTfl 

4,8,11,12, 

12.. 4 








1010 

IlRJR 

16,15,16,1 

5 .< 16.. 11 

, 14, 

x 2 

,9 

. 9 

4 

,9 

,n 

1015 

BhTR 

2,12,11,9 









1023 

BfiTfl 

16,15,16,1 

5 .• 16.. 11 

,14, 

12 

, Q 

,9. 

4 

, 9 

, 11 

1025 

BfiTfl 

4,8,11,12, 

12 ,4 








1 830 

BfiTfl 

16,15,16,1 

5,16,11 

,14, 

12 

, 9 

, 9. 

4 

, 9 

,n 

1035 

BfiTfl 

2,12,11,9, 

9,11,12 

, 14 







1040 

BfiTfl 

16,15,16, 1 

5,16, 11 

, 14, 

12 

,9 

, 9, 

-4 

, 9 

, li 

1045 

BfiTfl 

4,16,4,16, 

16,17,1 

5,16 

, 1 

5, 

16, 

1 : 

5, 

16,15 

1050 

BfiTfl 

16,15,16,1 

5,16,11 

, 14, 

12 

,9 

,9, 

4 

, 9 

,11 

1055 

rifiTfi 

2,12,11,9, 

9,11,12 

, 14 







i 868 

BfiTfl 

9,9,11,12, 

14 








1065 

BfiTfl 

16,7,17,16 

:,16,14, 

5,16 

, 14, 

14, 

12 , 

4,14,12,11,4 

1070 

BfiTfl 

4,16,4,16, 

16,17,1 

5,16 

, i 

cr 

■J, 

16, 

1 

5, 

16,15 

1875 

BfiTfl 

16,15,16,1 

5,16,11 

,14, 

12 

, 9 

,9, 

4 

, 9 

, 1.1 

1 !/i p!/? 

BfiTfl 

2 , 12,11 









1085 

BfiTfl 

9,9,12,12, 

12 , 12,1 

\ , 1 b 16, 

14 

,14, 

22,21, d 1,19, 


17,16,14,12,10,9,9,7,9,10 

1098 BfiTfl 12,14,15,15,16,16,17,9,12,12,14,11,12,19,7. 

18.9 ' 

1895 BfiTfl 19,11,19,12,19,14,19,16,19,24,23,21,19,16, 

14.19.17.14.12.19.7.19.9 

1100 BfiTfl 19,11,19,12,19,14,19,16,19,24,23,21,19,17, 
16,14,19,17,14,16,17,16,17 
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1105 DATA 16,15,16,11,16,15,16 
1110 DATA 11,16,15,15,16 
1115 DATA 11,16,15,15,16 
1120 DATA 11,16,15,15,16 
1125 BATA 11,16,15,15,16,16,15 

1130 DATA 16,7,17,16,16,14,5,16,1.4,14,12,4,14,12,11, 

4,16 

1135 DATA 4,8,11,12,12,4 

1140 DATA 4,16,4,16,16,17,15,16,15,16,15,16,15 
1145 DATA 2,12,11,5,9,11,12,14 
1150 DATA 2,12,11 

1155 DATA 16,7,17,16,16,14,5,16,14,14,12,4,14,12,11, 

4,16 

1160 DATA 4,16,4,16,16,17,15,16,15,16,15,16,15 
1165 DATA 16,7,17,16,16,14,5,16,14,14,12,4,14,12,11, 

4,16 

1170 DATA 2,12,11,9 
1175 DATA -1 
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Trying to teach someone to be able to use the available sound facilities to 
the utmost would be like trying to teach the piano or guitar - and from a 
single chapter in a book a sheer impossiblity! Anyone who has ever tried to 
learn a musical instrument will be well aware that it takes years of practice 
to obtain such talents - and the Commodore 64 sound machine is no 
exception. Since the only way for the reader to master these skills is to 
practice, you can use the next program which enables you to explore how 
changing the parameters of the SID affects the sounds produced. In order 
to eliminate any schronization problems, only one voice has been utilised. 

The program uses a small musical keyboard of the digit keys 1 to 9. Your 
local computer shop may be able to supply you with a larger, real musical 
keyboard which could be interfaced to the Commodore 64, in which case 
the program should be amended to accept a larger number of key inputs. 


By pressing function key' 1' you have the option of changing any of voice 
1 's control registers. 

Program 44 - EXPLORING THE SID 

10 REM $$$$**$*#$*$#*$*$ 

15 REM * EXPLORING SID % 

20 REM 

25 REM * MRH 1/7/1983 * 

30 REM m* 

35 REM 

40 Fi=0 : B=8 '• S=8 : R=3 

45 V=15 : DR-75 :W=17 :W*=" TRIANGLE" 

50 FR=3000 :P=5 

55 POKE 54277,16*A+D 'POKE 54278,16*S+R ’-POKE 54296-V 
60 PRINT "Z«m EXPLORING SID " 

65 PRINT "mm PRESS RNV FUNCTION KEV TO". 

," CHANGE PARAMETERS " 

70 GET K$ : IF K$="" THEN 70 
75 K=ASC<K$>-48 

80 IF K>84 AND K<93 THEN GOTO 200 

85 IF K<1 OR K> 9 THEN 70 

90 F=<FR+100*K>#P 

95 H=INT<F/256> :L=F-256*H 

100 POKE 54273,H :P0KE 54272,L 

105 POKE 54276,W 

110 FOR T=1 TO DR : NEXT T 

115 POKE 54276,W-l 
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120 GOTO 70 

280 PRINT "HMMS EXPLORING SID " 

205 PRINT "SIMMS PRESS THE FOLLOWING KEVS TO", 

," CHANGE PARAMETERS MB" 

210 PRINT " FI ... ATTACK ";TATK18);A 

215 PRINT " F2 ... DECAV TABUS);D 

220 PRINT " F3 ... SUSTAIN "JTAB<18);S 

225 PRINT " F4 ... RELEASE ";TAB(18)JR 

230 PRINT " F5 ... PITCH ";TAB(18);P 

235 PRINT " F6 ... DURATION";TAB(18);DR 
240 PRINT " F7 ... VOLUME ";TflB<18)>V 
245 PRINT " F8 ... WAVEFORM";TABUS)W$ 

258 IF W$=" PULSE" THEN PRINT SPC<18>;PW;"X" 
255 PRINT "MB SPACE BAR TO RETURN " 

280 GET Kt- -IF K$="" THEN 260 
265 IF K*« M " THEN 55 

270 K=ASC<K$)~132 ■IF K<1 OR K>8 THEN 260 
275 ON K OOSUB 300,400,500,600,350,450,550,650 
280 GOTO 208 


300 PRINT "HMS ATTACK ";A 

305 INPUT "MB ENTER NEW VALUE <0-15)";A 

310 IF A<0 OR RIM5 THEN 300 

315 RETURN 

358 PRINT "IMS DECAY ”;D 

355 INPUT ,r m ENTER NEW VALUE <0-15>";D 

360 IF D<0 OR D>15 THEN 350 

365 RETURN 

400 PRINT "IHSKi SUSTAIN ";S 

405 INPUT "m ENTER NEW VALUE (0-15)";g 

410 IF S<0 OR SMS THEN 400 

415 RETURN 

450 PRINT "ns® RELEASE ";R 

455 INPUT "m ENTER NEW VALUE (8-15)";R 

460 IF R<0 OR RMS THEN 450 

465 RETURN 

500 PRINT "?m PITCH ";P 

505 INPUT "MS ENTER NEW VALUE <1-10)";P 
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510 IF PCI OR P>10 THEN 580 
515 RETURN 

550 PRINT "in©! DURATION "DR 

555 INPUT "MW ENTER NEW VALUE (1-300)";DR 

560 IF DR<1 OR DR>300 THEN 550 

565 RETURN 

600 PRINT "rH« VOLUME ";V 

605 INPUT "MW ENTER NEW VALUE (0-15)";V 

610 IF V<0 OR VMS THEN 600 

615 RETURN 

650 PRINT "3SW1 WAVEFORM";TAB< 15);U 
655 print "mw press ■m" 

660 PRINT " FI ... TRIANGLE " 

665 PRINT " F3 ... SAWTOOTH " 

670 PRINT " F5 ... PULSE " 

675 PRINT " F7 ... WHITE NOISE " 

680 GET K$ : IF K$="" THEN 680 


685 

K=ASC(K$) 



690 

IF 

K=133 THEN W=17 

• W$=" 

TRIANGLE" 

695 

IF 

K=134 THEN W=33 

:W$=" 

SAWTOOTH" 

700 

IF 

K=135 THEN W=65 

:W$=" 

PULSE" 

795 

IF 

K=136 THEN W=129 

■ m=" 

WHITE NOISE 

710 

IF 

KOI35 THEN GOTO 

735 



715 INPUT "m ENTER PULSE WIDTH (0-100)";PW 
720 IF PW<0 OR PWM00 THEN 715 
725 PP=PW*40.95 : H=INT(PP/256) :L=PP-256*H 
730 POKE 54274.L ^POKE 54275.H 
735 RETURN 
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MORE ADVANCED SOUND FACILITIES 
FILTERING 


By passing the sounds obtained through filters we can alter the pitch of 
the notes produced to increase yet further the possible combinations. 
There are three filters available (as shown in Figures 19.12 - 19.14). 
Basically, a frequency is specified and depending on the type of filter 
involved, frequencies above or below this value are cut off. 

LOW PASS FILTER BAND PASS FILTER 


quantity 

passed 

A 



frequency 

Figure 19.12 quantity 

passed 

A 


quantity 

passed 



HIGH PASS FILTER 


Figure 1 9.14 



frequency 


By combining a high 
pass and a low pass 
filter, a notch reject 
filter is obtained. 


quantity 
passed i 


Figure 1 9.1 5 


NOTCH REJECT FILTER 


cutoff 

frequency 


frequency 

► 







The filters required are obtained by setting the following bits at address 
54296 (D41 8 (hex)) remember that the bottom four bits at this address 
contains the volume and so should not be changed unintentionally. 


Figure 1 9.1 6 


FILTER 

BIT 

LOW PASS 

4 

BAND PASS 

5 

HIGH PASS 

6 


The cut-off frequency is stored in 1 1 bits; the 3 least significant bits are 
situated in bits 0-2 at address 54293 (D415 (hex)) and the 8 most 
significant bits are at address 54294 (D41 6 (hex)). 

VIBRATO 

At address 54299 is a random number generator whose values alternate 
in a fashion dependent on the selected waveform of oscillator 3. 


Waveform 

Numbers Produced 

Sawtooth 

Continually incremented from 0 to 255 at a rate 
proportional to frequency of oscillator 3. 

Triangle 

Continually incremented from 0 to 255 and then back 
to 0 again. 

Pulse 

Oscillates between 0 and 255. 

White Noise 

Completely random. 
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Rapid changes about a frequency which causes an effect called vibrato 
can be obtained by adding the values obtained from this number 
generator to the frequency values as they are heard. The effects caused 
will be different for each of the four cases. The output from voice 3 can be 
eliminated by setting bit 7 at address 54296. 

One example below illustrates this by playing a tune called 'Ogonek' with 
each note being vibrated slightly as it is played. 

Program 45 - OGONEK 

10 REM ################# 

15 REM * .OGONEK * 

20 REM #===============* 

25 REM * MRH 1/7/1983 * 

30 REM ###*######*#####* 

35 REM 

48 fi=0 -D=8 •3=15 ■R=0 ■V=15 :DR=6 ■W=17 : PRINT "T 
45 POKE 54296,V+128 ^POKE 54276,W-l 
50 POKE 54278,8*16+R -POKE 54277,A*16+D 
55 POKE 54290,17 ■POKE 54286,120 
68 DIM NOS) 

65 FOR J=0 TO 2 

70 RESTORE 

75 FOR 1=0 TO 11 

80 RERD X ; N<J#12+I>=X*(2tJ) 

85 NEXT I 
90 NEXT J 

95 DRTR 2145,2273,2408,2551,2703,2864,3034,3215,3406, 
3608,3823,4050 
100 READ X 

105 IF X<0 THEN POKE 54276,W-l -END 
110 POKE 54276,U 
115 FOR T*1 TO DR 

120 F=N <X)+PEEK<54299V2 -REM RDD VIBRATO 

125 H=INT(F/256) ■L=F-256*H 

130 POKE 54272,L •POKE 54273,H 

135 NEXT T 

140 GOTO 100 

1000 DATA 0,4,9,12,16,4,14,2,6,4,14,4,8,1,14,4,11,12,1 
4,4,11,12,9 

1005 DATA 0,4,9,12,9,4,0,4,16,17,19,8,17,16,19,3,11,17 
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■f r 

i i > “ 

14,9,17, 

9,1?,: 

13,21 


1010 

DATA 

9,19,21,1 

6,4,8, 

,11,1 

6,14,11,8,0,12,24,24,24, 


ii! c : ! 3 . 

■21,24,12, 

16,23 

,17 


1015 

data 

9,14,9,17,9,17 

,9,1. 

,7,13,21,9,19,21,16,8,12. 


6 , 8, 

12,16,9,8 

,11,16 



1020 

DATA 

0,4,3,12. 

• 16,4, 

14,2 

,6,4,14,4,8,1,14,4,11,12 


4,4.. 

11,12,9 




1025 

BfiTfl 

12,16,12. 

,9,21 



1030 

DATA 

-1 
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CHAPTER 20 


BASIC INPUT/OUTPUT 


PERIPHERALS 

When we refer to the term 'Peripheral' we usually mean some external 
add-on device such as a printer or disk drive that we can interface to a 
computer system. With our own Commodore 64 system we can also 
include such items as the keyboard and screen which, if we require, can be 
handled in the same fashion as other external devices. However, since 
these devices are in common use, the designers of the system decided to 
keep things simple and produced some additional routines such as 
PRINT, INPUT, etc to handle these devices. 

When we want to 'talk' to the Commodore 64's peripherals we do so by 
communicating with them by means of logical files. The ideas of a logical 
file is quite common in computing although it can be a difficult concept to 
grasp initially; fortunately for the beginner, the Commodore 64's system 
software handles the logical files automatically for the keyboard and 
screen if PRINT, INPUT, etc are used. 

LOGICAL FILES 

The be st way of visualising these logical files is to imagine a normal office 
type of file as in Figure 20.1 The Commodore 64 has several BASIC 
commands available which enable the programmerto put data intothefile 
or to examine its contents. It is also possible to assign a peripheral to a 
logical file so that these commands are actually sending data to or 
receiving data from the device. 

Up to a maximum of ten logical files may be used simultaneously on the 
Commodore 64 and each is distinguished by a unique numerical label. 
This label is limited to the range of 1 to 255; although its choice is up to 
the programmer we shall see that it is wise to use some value that bears a 
resemblance to the device or its characteristics in order to keep track of the 
program logic. 
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Before we can access a logical file it has to be opened; this seems 
common sense if we think of our office file. Although the permutations of 
the statement used to open a logical file are numerous, there are 
essentially two items that we must always tell the computer; firstly by 
what label or file number we are going to refer to the logical file and, 
secondly, information about the peripheral that is to be assigned to the file. 

The data about the peripheral can consist of one or two items; these are 
called primary and secondary addresses. 

Primary address (unique number referring 



Figure 20.1 Office File Analogy of a Logical File 

PRIMARY ADDRESS - DEVICE NUMBERS 

If we refer right back to chapter 3 we will recall that at the rear of the 
Commodore 64 is a Dl N socket called the 'Serial Port' which we said was 
used for interfacing the computer to items such as printers or disk drives. 

This connection can, in fact, join several peripherals to the Commodore 64 
in a 'daisy chain' type of arrangement with the joining links being known 
as the serial bus (or IEEE-488 bus). 

In order that a computer can send a message down the serial bus to be 
picked up by just one peripheral, the message must include an identifier 
for the device it is to be received by. In the Commodore 64 system, the 
message is sent to a file which itself has been assigned to a single device 
by means of a unique identifying number called the primary address. 
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The primary address or device number of each peripheral is 'hard coded' 
into it at manufacture although, for some peripherals, it may be quite a 
simple task to amend it. For devices that are connected to the serial port, 
the device number is restricted to the range 4 to 31. 

The standard device numbers of primary addresses for peripherals in the 
Commodore 64 system are: 


Device Number 

Peripheral 

0 

Keyboard 

1 

Cassette interface 

2 

Vic Modem - device for translating data into a 
series of pulses for transmitting through 
communication devices (e.g. telephones) 

3 

Display screen 

4 (or 5) 

Printer 

8 

(or 10 or 1 1) 

Disk drives 


Figure 20.2 


For readers who are hardware experts, this leaves plenty of device 
numbers for their own projects requiring control such as for example, 
electric thermometers, voltmeters, heating controls, light shows etc. 

If a primary address is omitted by the programmer then a value of 1 is 
assumed by default, thus the Commodore 64 will start communicating 
with the cassette interface. 


Secondary Address 

The secondary address is an instruction value sent to a device that utilises 
a separate processing unit from that used by the central computer system. 
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Using a separate processing unit enables the peripheral to operate 
independently from the Commodore 64 and so does not consume the 
computer's resources. The exact values of secondary addresses depend 
on the device involved, as we shall see when we study the Commodore 
peripherals i.e. the cassette interface, printer and disk drives. If a 
peripheral expects a secondary address to be specified but it is omitted by 
the programmer then a value of 0 is assumed by default. 

OPENING and CLOSING LOGICAL FILES 


Having seen what a logical file is used for, let's see howto open such files. 
Also, since there is a limittothe number of logical filesthatcan be opened 
at any one time we shall see how to close the logical files when they have 
been finished with. Unsurprisingly, the BASIC commands for this are 
OPEN & CLOSE. 


Syntax: OPEN < J{J® >, [<device>] I - < S ^d d > ] 

[;"< name > L<type>] [,<mode>]"] 


It can be seen that the full syntax of the OPEN statement contains more 
than the file number and the device addresses; the use of the remaining 
terms will be illustrated later. For the time being it is sufficient to keep 
things simple. 

example 


1) 10 OPEN 1,4 

This opens up a logical file and assigns it to device 4 (the printer); 
in this case the file is referred to by the number 1. 

Syntax: 

CLOSE <file no> 

example 

2) 20 CLOSE 1 

This CLOSEs the logical file OPENed above. 
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If we try to access a logical file that had not been opened then the error 
report 7FILE NOT OPEN' will be given. Similarly if we try to open a logical 
file that is currently open then the error report 7 FILE OPEN' will be given - 
this error, however, also closes the file involved and so, rather confusingly, 
it must be re-opened before it can be used. 


COMMUNICATING WITH A PERIPHERAL 

Once a link has been set up with a peripheral by means of a logical file we 
can 'talk' to it using the BASIC statements PRINT#, INPUT# and GET# 
followed by the file number of the link with the logical file concerned. 

These statements are much the same as PRINT, INPUT and GET except 
that they communicate with the screen or keyboard. Using these new 
commands we can link up any device to the 64. 

To send information to the device, PRINT# is used; to receive strings or 
values from the device, INPUT# is used, and to receive a single byte from 
the device, GET# is used. 


Syntax: 

PRINT# <file no,> <data list> 
INPUT# <file no,> <variable list> 
GET# <file no,> Cvariable list> 

example 


To send a message to the printer: 
10 OPEN 1,4 

15 PRINT#1, "MESSAGE" 

20 CLOSE 1 


Where whole program listings are concerned, communication with a 
peripheral is undertaken by the statements SAVE, LOAD and VERIFY; in 
these cases the logical files are automatically controlled by the system 
software but a device number must be specified. 
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Syntax: 

SAVE ("filename")),<device no>)(,<secondary address>) 
LOAD ("filename"))/<device no>)(,<secondary address>) 
VERIFY ("filename")),<device no>) 


To transfer a program currently stored in the Commodore 64's memory to 
a device such as a disk drive or cassette unit, the statement SAVE is used 
along with a file name of up to 1 6 characters, the receiving device number 
and, if required, a secondary address. Program listings are automatically 
SAVEd twice which enables errors on retrieval to be found. A secondary 
address of 1 tells the computer, when reloading, to put the program at the 
same place in the memory rather than from the usual location at address 
2048, a secondary address of 2 puts an end of tape marker at the end of 
the program and a secondary address of 3 combines both of these. 

To check that a program has been stored correctly, we use the command 
VERIFY as soon as the program has been SAVEd. If a problem has 
occurred then the error report 7VERIFY ERROR' will be given and the 
SAVE process should be repeated. 

To retrieve a program that has been previously SAVEd, LOAD is used, 
together with the file name of the program and the device number of the 
peripheral containing the program. 

Having communicated with a peripheral it is possible to enquire about the 
state of the system with the function STATUS which returns an eight bit 
binary number. 


Syntax: 

ST [ATUS] 


For communications involving the cassette unit and peripherals attached 
to the serial bus the following bits will be set: 
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Output from Tape 

Input to Tape 

I/O with Serial Bus 




Write time out 

D 



Read time out 

H 

Short block 


n 

Long block 


a 

Error in output 

Mismatch 


D 

Check sum error 


D 

End of file 


End-of-identify 

7 

End-of-tape 

Device not present 


Figure 20.3 


DATA FILES 

As well as programs, data may be stored on disk and cassettes, although 
there are several limitations with the latter. 

There are two ways of storing data, and in each case a collection of related 
data is called a file. We can have either: 

A sequential file: 

the data items are stored one after another; to access a single 
item the file has to be searched through from the beginning until 
the required item is found. 
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A random access file: 

any data item can be accessed almost equally quicky by specifying 
some value that references the position of the data in the file. 

In any file will be a series of records which contain the data. 
Records can be sub-divided further to contain several related 
items; each sub-division is called a "field”. An ideal analogy is an 
office filing cabinet, with each record being represented by a 
folder in the cabinet and the fields the information represented by 
the different items of information in the folder. 

Thus when a record is accessed from a file, a complete set of 
usefully related data is obtained. 

For example an order record for a car dealer might contain seven fields: 


Order No. 

Car 

Model 

Colour 

Customer 

Price 

Date Due 


■ 




■ 



Figure 20.4 

Such records could be sorted so that they are in some sort of order, such 
as alphabetical order of the customers name, or by ascending order 
number. The field that dictates the order is called the key, and it is uptothe 
programmer to choose a suitable key field. 

When dealing with files it is usual to use a 'record pointer' which points to 
a particular record in the file; the value of the pointer is sometimes called 
the address of the record. With a random access file it is possible to 
specify a key and, providing there is a unique key to address relationship, 
the operating system can calculate the correct address of the record. 


SUMMARY 

In this chapter we have seen howthe Commodore 64 communicates with 
its peripherals by means of logical files. The important thing to remember 
is that all files must be OPENed before they can be accessed, CLOSEd 
when finished with and, when OPENed, the file number, the device 
number (primary address) and optionally an instruction (secondary 
address) must be specified. To 'talk' to a device, the commands PRINT#, 
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INPUT# and GET# are used for data files and SAVE, LOAD and VERIFY 
when program listings are involved. Data is stored in files either sequentially 
or randomly with disks but, due to the slow speed of a cassette unit, there 
is no real alternative but to store data sequentially on cassette tape. 

We shall now continue and see how to use logical files to communicate 
with the Commodore peripherals. 
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CHAPTER 21 


PROGRAM STORAGE 


By now you should be well aware, probably due to a previous misfortune, 
that when the power is disconnected from te Commodore 64, the stored 
program is lost for ever. There is, however, the facility for storing the 
programs on magnetic media so that they can be retrieved for use at a later 
date - the process is just like recording a record, which can then be played 
whenever you want. The Commodore cassette unit or disk drives are 
required for program storage. 

THE C2N DATASSETTE UNIT 

The Commodore C2N datassette unit is a device for storing programs 
and/or data onto normal domestic cassette tape. The unit has been 
designed for use with all the Commodore computers; it is interfaced to the 
Commodore 64 by plugging the connector from the unit into the smallest 
of the expansion portts found at the rear of the computer. The connector 
will only fit one way round, so do not force it. It is also wise to keep the unit 
away from the television since magnetic fields can affect the unit and the 
cassette tape. 

It is also very important to make sure that the tape heads of the unit are 
kept clean at all times. When cassette tape passes over the tape heads, it 
leaves a small deposit; after a time this will mount up to such an extent that 
the recordings will be muffled and the Commodore 64 will not be able to 
decipher the signals. It is also worth using high quality tapes since some 
poor quality ones will not give a large enough signal for the system to 
interpret. If the signal is too low the Commodore 64 will search 
indefinitely for a program or data file. Another fault with poor quality tapes 
is that they shed their magnet particles more easily. This can cause a more 
rapid build up of depositions or the tape may loose a particle cotaining vital 
information. 
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STORING PROGRAMS ON CASSETTE TAPE 


To save a program on cassette tape: 

1) Cue up the part of the tape to be used. 

2) Type SAVE "name of program" (RETURN) The prompt 'PRESS 
RECORD & PLAY ON TAPE' will appear on the screen. 

3) Press the buttons on the cassette unit and a red L.E.D. on the unit will 
light up. The screen will clear while the program is transferred to 
cassette tape. When the action is complete the screen will reappear 
with the message 'READY' and the motor on the cassette unit will 
have automatically stopped. 

Programs are automatically stored twice in order to detect errors on 
playback. 

Note that for the cassette unit, the device number need not be specified as 
a primary address of 1 is assumed by default. We can save the program 
with the name omitted but this would mean that the program could not be 
recalled by name which makes locating it on the tape a little tricky. 

It is possible to ensure that a program has been saved properly before 
switching off the Commodore 64 by the command VERIFY. To do so: 

1) Cue up the section of tape to a point before where the program 
commences. 


2) Type VERIFY"name of program" (RETURN) The prompt 'PRESS PLAY 
ON TAPE' will appear on the screen. 

3) Press the play button on the cassette unit and the screen will clear as 
before. 


4) When the program has been located it will prompt with 'FOUND name 
of program' on the screen. 


On pressing the space bar, the program will be checked against the 
program stored in the computer's memory. If any error is found the error 
report ? VERIFY ERROR' will be given. If everything is correct the report 
'OK' is returned; as before, the cassette unit's motor will automatically 


stop. If nothing seems to happen press 
reSAVE the program. 


RUN 

STOP 


to break control and then 
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To load a program from cassette tape, the same procedure as VERIFY is 
used except that the command LOAD is used instead. LOAD will delete 
any old program that may exist before the new program is retrieved. When 
a name is specified, the computer will search for the first program on the 
tape with the specified name; if no name is given then the first program on 
the tape will be loaded. 

A quick way of obtaining the command LOAD is to press 


shift B run 

■ Bf STOP 


DISK DRIVES 


The disk drive is now becoming the most common item of hardware for 
storing information used by a microcomputer. The advantages include 
high reliability and fast access times. Unfortunately their high cost has led 
them to be regarded by some hobbyists as expensive luxuries. 

In the days of the first computers, information was usually stored on either 
punched paper tape or cards; this was not ideal, since it was bulky and not 
reusable. The next medium involved magnetic tape but, as we have seen 
with our own miniature cassette tape, the access times are very high if the 
data required is wound a long way from the required position. As the 
efficiency of computers developed a new medium was soon required that 
had very fast access times and the disk drive evolved with a "disk pack" as 
standard. A disk pack contains several magnetic disks stacked on the 
same spindle with a space between each disk where seperate read/write 
heads could be slotted. The disk pack rotates several thousand times a 
minute. Because all of the parts of the disk were exposed, the access times 
were very short; using such disks avoided waiting for the required section 
of the storage medium to be cued up. 

While these disk packs are still in common use today, for microcomputers, 
the most important development has been the 'floppy disk' which is a 
single magnetic disk. 

There are two common sizes of floppy disk available - the 8 inch and the 5 
1/4 inch. The smaller size, often used in microcomputer applications is 
commonly called the 'mini floppy' or 'diskette'; there are signs that a new 
3 1/2 inch 'micro floppy' could become a new standard. The magnetic 
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disk of the floppy is protected within a stiff square envelope with just a few 
small openings. The disk drive makes contact with the centre of the disk 
through one of these openings and rotates the disk within its envelope 
which remains stationary; the read/write heads then make contact while 
the magnetic surface of the disk through another opening. 


label 



Figure 21.1 The Floppy Disk 

Disk drives are controlled by software called the disk operating system 
(DOS) which is usually included within thediskdriveand is processed by a 
separate microprocessor. This separate 'intelligence' enables the operations 
required by the user to be kept simple with most of the work done by the 
DOS; this reduces the processing overheads on the computer's central 
microprocessor. The DOS is interfaced to the disk drive itself by means of 
the ''disk controller” which is a hardware unit inside the disk drive. 

One of the important things that the DOS knows is that the data is 
organised on the disk in concentric tracks. With the Commodore disk 
drive, there are 35 tracks available on one side only of the disk. Since each 
track can store just under 5K bytes of data the total disk can store nearly 
1 75K; theexact value for each track depends on its physical size, which in 
turn depends on its distance from the centre of the disk. A disk with this 
type of storage is said to be Single Density, Single Sided. 

Instead of storing all the information continuously along one track it is 
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more efficient to divide each track into sections a shown in Figure 21.2 
Such boundaries are put onto the disk by the DOS with a formatting 
routine. Data is transferred to and from the disk in units of one section at a 
time. 


disk 



Figure 21.2 The Floppy Disk Format 

Another one of the functions of the DOS is to keep track on the identity of 
the floppy and the files that it contains. To do so, approximately 1 K is 
reserved on the disk to store the disk directory which contains the name of 
thediskand a list of the files that are present with theirsize and position on 
the disk. 

Since floppy disks are quite delicate it is important that you handle them 
with care. Keep them out of range of magnetic fields such as those emitted 
from a TV and keep them away from direct sunlight. When not in use you 
should keep the exposed sections of the disk away from dirt and sticky 
fingers by returning the floppy disk back to its storage envelope. 

THE VIC-1541 SINGLE DISK DRIVE 

The Commodore VIC-1 541 is a disk drive that can be interfaced to your 
Commodore 64. It should be connected to the serial port with the cable 
provided and if any other peripherals are required, the disk drive should be 
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first in the 'daisy chain'. Note that all power should be disconnected from 
the equipment before connecting. 


When power is initially supplied to the disk drive it is very 
important that no disk is in the disk drive or the stored data will be 
corrupted. 


There are two L.E.D.s on the front of the disk drive; the green L.E.D. 
signals that the power is on and the red L.E.D. signals that the disk drive is 
either not ready or that an error has occured. 

To insert a floppy into the drive, open the door of the drive and insert it with 
the label on the top and the write protect notch to the left, see Figure 21.1. 
Once inserted, close the door. The floppy disk will spring out once the door 
is opened. 


STORING PROGRAMS ON FLOPPY DISK 


We shall now see how to examine the disk directory and to store or 
retrieve program files on a floppy disk. Forsimplicity, we'll assume that we 
have just one drive. The first thing that we must to is open a logical file to 
set up a channel so that we can communicate with the disk drive. 

Whenever a floppy disk has been inserted into the disk drive it must be 
initialised. This command aligns the read/write heads with the disk and 
transfers a copy of the disk directory to the DOS. If the disk is new it has to 
be formatted; this sets up the sectors and directory onto the disk. Having 
done this we can then transfer programs to and from the floppy disk. 


OPENING A COMMAND CHANNEL 


To communicate with the disk drive a 'command channel' has to be set up 
by opening a logical file assigned to the disk drive (device 8) specifying a 
secondary address of 1 5. Our reference number for the logical file may be 
changed to any number between 1 and 255. 


example 


OPEN 15, 8, 15 




INITIALISE DISK 


The disk drive is initialised by sending the disk drive command 'INITIALISE 
dn' where dn is the drive number. In our case where we only have one 
drive the number is 0 but it may be omitted. 

example PRINT# 1 5, "INITIALISE 0" 

The command INITIALISE' may be abbreviated to 'I' 

i.e. PRINT# 15, "I" 

If the command channel had not yet been opened, the initialise command 
can be included in the OPEN statement. 

example OPEN 15, 8, 15, "I" 

Having done this, the read/write heads will be properly aligned and the 
DOS will know which files are on the disk. This command must be used 
every time a fresh disk is inserted into the drive. 


LOADING THE DISK DIRECTORY 

We can examine which files are on a disk by loading the disk directory and 
then displaying it. To do so we use the command 

LOAD "$dn", 8 or LOAD "$",8 

but you should remember that this will erase any program that is present 
in the computer's memory. The directory may then be inspected by LIST. 
The directory displayed will tell us the name of the disk, the disk id 
number, what version of DOS it was created with, how much space is still 
available and the file names present with their type and size. 

The "disk id" is a number given to the disk when it is being formatted. It is 
advisable to give all your disks different id's since, if the id on the disk in 
the disk drive does not match that in the DOS, the computer rejects it. This 
avoids the possiblity of corrupted disks by forgetting to initialise a fresh 
disk. In such a situation the disk drive would be using the previous disk 
directory on the new disk and so would be writing to the wrong locations. 
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THE DISK MAINTENANCE COMMANDS 


NEW - Formatting a Disk 

Whenever a floppy disk is brand new and unused, or an Id disk is to be re¬ 
used, the disk has to be formatted; this process sets up the sectors on the 
disk by imprinting magnetic signals on it. The required disk command for 
executing the formatting routine is 'NEW', not to be confused with the 
BASIC command NEW: 

i.e. PRINT# 1 5, “NEW dn: disk name, disk id", 8 

The disk name contains a maximum of 1 6 characters and the disk id is a 
two character alphanumeric value. The disk drive no., in our case 0, may be 
omitted since we are using a single drive and so the command 'NEW' can 
be abbreviated to 'N': 

PRINT# 1 5, “N: disk name, disk id” 

SAVE, LOAD and VERIFY 

Before a diskette can be used, it must be formatted and initialised - read 
the manual or the notes in this chapter. This section presumes that you 
have initialised a disk. A program may now be saved using the command 
SAVE for device number 8: 

SAVE “dn: program name", 8 

The drive number, in our case 0 (i.e. just one drive is being used) may be 
omitted. To overwrite an existing file with the same name, the character @ 
is inserted at the start of the string 

SAVE “ @ dn: program name", 8 

As with the cassette unit, we can verify that a program has been saved 
correctly using VERIFY: 

VERIFY “dn: program name", 8 

To verify a program that has just been saved, the following may be used: 
VERIFY 8 
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where "*" is a wild-card character meaning “the last program saved" - you 
can use the actual name if you prefer. 

To load a selected program from a disk the command LOAD is used: 

LOAD "dn: program name" 

As before, the drive number 0 may be omitted. 

If you use LOAD "*", 8 the "*" wild-card means "the first program on the 
disk". If you have only one program on the disk, this can be handy. 

Other disk commands include: 

RENAME 

A file name may be changed by the command 'RENAME' (or 'R'): 

PRINT# 1 5, "Rdn: filename = old filename" 

The drive number, in our case 0, may be omitted. 

SCRATCH 

Any unwanted file(s) may be deleted from the floppy disk and its directory 
by the command 'SCRATCH' (or 'S'): 

PRINT# 15, "Sdn: filename, dn: filename,.. dn: filename" 

The drive numbers, in our case all 0, may be omitted. 

COPY 

Duplicate copies of a file can be created by the command 'COPY' (or 'C') 

PRINT# 1 5, "C dn: filename = dn: existing filename,. 

The drive numbers, in our case both 0, may be omitted. 

ERRORS WITH DISK HANDLING 

Any errors that occur with disk handling will be signalled by the red L.E.D. 
flashing on the front of the disk drive. To reset the device and obtain an 
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error message, the following routine should be called as a subroutine: 


Program 46 - DISK HANDLING ERROR ROUTINE 


10000 rem 

10005 REM * DISK ERROR SUBROUTINE * 
10010 REM #'#*if!******#******i|(***Si(* : Ji<* 
10015 REM 


10020 
10025 
10030 
10035 
10040 
10045 
10050 
10055 


INPUT# 15 j EN.. EM$. ET , ES 

IF EN<20 THEN RETURN 

PRINT "nWffiia DISK ERROR HAS OCCURED 

PRINT "ERROR NUMBER "EN 

PRINT "ERROR MESSAGE ";EM$ 

PRINT "TRACK NUMBER ’MET 

PRINT "SECTOR NUMBER ";ES 

STOP 


M" 


where 


EN is the error number 
EM$ is the error message 
ET is the track ) 

ES is the sector) where the error occured. 


The error number references a detailed description of the error in the VIC- 
1541 user's manual. 

It is a good idea to check the error channel after every disk operation to 
check that everything has gone OK. However doing this after every 
PRINT# although wise can be very time consuming if vast quantities of 
data are involved and so some programmers often choose to omit this 
step. If your data is valuable or the disc is nearly full then this precaution 
should always be undertaken. 

FILENAME MATCHING 


The referencing of file names can often be made easier with the use of the 
wild-card characters '*' and ?'. 

A '*' at the end of a file name means the remaining characters in the name 
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are insignificant 


e.g. "DA*" could refer to any of: 

"DA" 

"DATA" 

"DATA1" 

"DATA 1 2 3 4" 


A ?' in a file name means that the particular character is insignificant, 
e.g. "C?T” could refer to any of: 


"CAT" 

"COT" 

"CUT" 


Care should be taken when using this technique to delete files from a disk 
as it is easy to accidently erase the wrong file! 
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CHAPTER 


THE VIC-151 5 GRAPHIC 
PRINTER 


The VIC-1 51 5 graphic printer has been designed to enable you to obtain 
'hard' copies of the Commodore 64's output. It is capable of printing all 
the upper and lower case alphabetic characters, the numeric digits and the 
graphic characters from the Commodore character set. In addition we can 
define some of our own characters and specify format instructions. Like 
some of the other Commodore peripherals, it has its own microprocessor 
and so the required processing is not undertaken by the Commodore 64's 
central microprocessor.lt is interfaced to the Commodore 64's serial bus 
along with any other peripherals by linking them up in a 'daisy chain' 
fashion with the cables provided. 

Just like any other peripheral, communication with the printer is via logical 
files; having opened a communication link, the Commodore 64 'talks' to 
the printer using PRINT#. The printer has a device number of 4 although 
this can be altered to 5 by a slide switch located at the rear (the same 
switch can be set to 'T' which gives a diagnostic printout for testing). The 
file may be opened with a secondary address of either 0 forthe uppercase 
character set or 7 for the lower case character set. 

As a simple example, to send ''COMMODORE 64” to the printer: 


10 OPEN 4,4 

20 PRINT# 4, "COMMODORE 64” 
30 CLOSE 4 


A secondary address of 0 is assumed by defaultand sothe printing isdone 
in upper case. 
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THE CMD COMMAND 

The CMD command can be used to replace the primary output device, i.e. 
the screen, with any required device; the device involved is then said to be 
'listening'. 


Syntax 

CMD <filename> (,"<string>") 


Any device may be used providing it has been linked to the Commodore 
64 via a logical file. Any string specified in the CMD command is also sent 
to the device. To redirect output back to the primary device a PRINT# 
command is used to send what would appear to be nothing, (i.e. a blank 
line) - the device is now said to be unlistening! Note that if the logical file 
that was created with the communication link is closed the device does 
not automatically become unlistening. If an error ocurs with the communi¬ 
cation to the peripheral all the logical files are closed but the device is not 
unlistened; thus, if an error occurs, the communication links should be 
recreated and a PRINT# message sent to unlisten the device. 

LISTING A PROGRAM 

To obtain a program listing at the printerthe following instructions should 
be entered in command mode: 


OPEN 4,4 

CMD 4 4- sends output to printer 

LIST 

PRINT# 4^- unlistens printer 

CLOSE 4 


MORE ADVANCEDCONTROLOFTHEVIC-1 51 5 
PRINTER 

In addition to the standard characters of the Commodore 64 character set 
there are enhancements that we can make to the printed output by 
sending selected control codes with the PRINT# statement. The control 
codes are listed in appendix C. 
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DOUBLE WIDTH MODE 


By sending the character CHR$(14) we can enter 'double width print 
mode' in which the characters are built on a grid of dots that is twice its 
usual width. The printer remains in this mode until the character 
CHR$( 1 5) is sent which returns the printer back to 'standard print mode'. 

GRAPHIC MODE 

By sending the character CHR$(8) we can enter 'graphic mode' in which 
we can define any character that can be accommodated on a 7 x 6 matrix 
grid. To define such a character we need to specify 6 numbers which 
indicate which pixel dots are set, in a very similarfashion as to the way that 
we defined characters in standard display mode. 

Consider for example the copyright character © 




0111110 = 62 
1000001 = 65 
1010101 = 85 
1011101 = 93 
1000001 = 65 
011 1110 = 62 S 


Plus 128 


Having designed our character we have to calculate the six numbers that 
represent the pixels in each column. Taking each column in turn, the pixel 
sequence is written as a binary number with a " 1" representing each set 
pixel, a "0” representing a blank pixel, and the bottom pixel being the most 
significant bit. The six characters can then be evaluated as a decimal 
number to which the value 1 28 has to be added i.e. in the case of © the 
pixel data is 

190, 193, 221,213, 193, 190 


The character is then sent to the printer by the following sequence of 
characters: 


CHR$(8), 


six characters whose codes are 
the pixel code numbers 


,CHR$(1 5) 


219 





CHR$(1 5) is used to return the printer back to standard print mode. By 
sending CHR$(26) and CHR$(N) before the pixel data, the character will 
be repeated N times. 


CURSOR UP/DOWN 

We may switch between the upper and lower case character sets by 
sending the characters: 

CHR$(145) for upper case & CHR$(1 7) for lower case 


REVERSE CHARACTER MODE 

Similarly we may switch between reverse colour mode (i.e. white on black) 
and normal colour mode (i.e. black on white) by sending the characters: 

CHR$( 1 8) for reverse colour & CHR$ (1 46) for normal colour 


CONTROLLED PRINTING 

By sending appropriate characters we can specify the character or pixel 
dot position at which an item is to be printed. Character positions range 
from 0 to 79 and pixel dot positions range from 0 to 479. 

To specify a character position we must send the character CHR$ (16) 
followed by the position as a two digit number in quotes. 

e.g. to print string variable A$ in column 27: 

PRINT# 4, CHR$( 1 6) 4- "27"; A$ 

Similarly, to specify a pixel dot position we must send characters 
CHR$(27) + CHR$(16) followed by the two characters CHR$(H) + 
CHR$(L) where the dot position is equal to H * 256 -I- L. 

e.g. to print AS in dot column 300 

PRINT# 4, CHR$(27) + CHR$(1 6) + CHRS(1) + CHR$(44); AS 

These advanced printing commands are illustrated in Program 47 which 
plots a histogram for the values that are stored in the DATA statements. 
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Program 47 - HISTOGRAM 


10 

REM 

% % # % % % % #####♦$ % % % 

15 

REM 

* HISTOGRAM $ 

20 

REM 

•*=====- =a=r S rs.-)K 

25 

REM 

* MRH 1 / 7/1933 * 

30 

REM 

# % W. % % $ % # % # $ '■¥. # 

35 

REM 



40 UF'EN 4 , 4 

45 PRINT#4,CHR$<14);"SALES FICURES";CHR$(15) 

59 PRINT#4,SPC<8);CHRf(13);"1983";CHR$<15) 

55 PRINT#4,CURT<17 > J"COMPUTER SALES < £1000'S>";CHRt< 

15) > CHR$< 10) 

68 Q$CHR$<8) +CHRT<27) +CHR*< 16 ) +CHRT <0) +CHR$<60)+CHRT <26) 
65 READ N$, V -GET KS 

70 IF Ni="" OR K "■ THEN PRINT#4 : CLOSE 4 : END 
75 F$-N$+Q$+C:HR$<V) +CHRT<255) +";" +CHR$< 15) 

80 PR I NT#4, Pi- V 
85 GOTO 65 

100 BAIR JANUARV ..100 
105 LfiTfi FEBRUARY ,.37 
110 BRTfi MARCH ,.243 
115 DATA APRIL ,134 
120 DATA MAY ,137 

125 BRTfi JUNE ,145 
130 BAIR JULY ,67 
135 DATA AUGUST ,145 
148 BRTR SEPTEMBER,110 
145 BRTR OCTOBER ,76 
150 BRTfi NOVEMBER ,99 
155 BRTR DECEMBER ,69 
168 BRTR "" ,0 
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THE COPY STATEMENT 


Some versions of BASIC on other systems have the command COPY 
which duplicates a hard copy of whatever is displayed on the screen. 
Program 48 can be called as a subroutine to simulate this command. The 
main difficulty in writing such a routine arises because the PEEK/POKE 
codes used to store the screen in the screen memory do not correspond 
with the characters that are required to be sent to the printer - thus a 
conversion has to be done. 

Program 48 - COPY SUBROUTINE 

20080 REN ##s***************** 

20085 REM * COPY SUBROUTINE * 

20010 REN 
20015 REN 

20020 OPEN 4,4 :PRINT CHR*<142>;CHR$f8) 

20025 FOR 1=1024 TO 2023 STEP 40 
20036 1$="" 

20035 FOR J—0 TO 39 

20040 P=I+J : C=PEEK(P) ; R=0 ; Cf=CHP$< 160'^ 

20045 IF 0127 THEN R-l :C=C-128 

20050 IF 0=0 AND C<=31 THEN C$=CHR$<C+64> 

20055 IF 0=32 AND C<=63 THEN C$=CHR$CO 

20060 IF 0=64 AND 0095 THEN C$=CHR$0+32> 

20065 IF 0=36 AND C<=127 THEN C**CHR$fC+64^ 

20070 IF R=0 THEN L$=L$+C$ 

20075 IF R=1 THEN L$=L$+CHR$a8>+C:f+CHR$a46'j 

20080 NEXT J 

20085 PRINT#4,SPC<15>;L$ 

20090 GET K$ '■ IF K$=" " THEN 20100 
20095 NEXT I 

20100 PRINT#4 : CLOSE 4 :PRINT CHR$<9> 

20105 RETURN 
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CHAPTER 23 


DATA STORAGE ON 
CASSETTE 


Our first look at using data files will involve the C2N cassette unit which is 
a simple device for storing information; unfortunately it does have some 
severe limitations. We have already seen how to communicate with the 
unit via the serial bus and that the device number is 1; in most cases this 
number may be omitted as the Commodore 64 assumes 1 by default. It 
was also pointed out that since a section of tape containing data cannot be 
accessed quickly if the tape is wound a long way from that particular 
section, all data stored on the tape must be organised sequentially. In a 
sequential file, the records are stored one after another and usually 
grouped into blocks. The blocks, which are small enough to be held in 
main memory, are stored on the tape with small intervals between them 
which enables the cassette unit to have time to stop and start the tape, see 
Figure 22.1. 

The Commodore 64 has a section of RAM located from address 829 to 
1019 called the cassette buffer. When data is loaded from the tape, one 
block is loaded at a time and stored into the buffer and the data can then be 
accessed from it. Similarly, when data is being stored on tape it is stored in 
the buffer and sent to the cassette unit either when the buffer becomes 
full, in which case it can be refilled, or when the logical file assigned to the 
cassette unit is closed. This avoids the tape continually being started and 
stopped for each data item, and so enables the data to be more closely 
packed onto the tape. 



Figure 22.1 Sequential Storage on Tape 
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In large commercial installations, the slowness of sequential files on 
magnetic tape means that most amendments are made to large data files 
by using "transaction files". Consider, for example, a bank with all the 
current accounts of its customers stored on magnetic tape. During the day 
the value of some of the accounts will be altered as cheques are received 
or cashed. It would be very inefficient, if not impossible, to change the 
values of the accounts as each alteration occurs. Instead, a 'transaction 
file' is built up during the day which contains each amendment to an 
account as it occurs. At the end of the day, the transaction file is sorted 
using some unique key (probably the account number) until the records 
are in the same order as the records appear on the main "master" file. The 
two tapes can then be matched to update the accounts and produce a new 
"master file". 

CASSETTE DATA FILES 

Cassette data files are created by the following operations: 

Firstly we must open a logical file to communicate with device 1, the 
cassette unit. In this case the general syntax of the statement is 

OPEN file number, device number, secondary address, "filename" 

When the logical file is opened, the secondary address should be specified 
and this determines the mode in which the cassette unit will function; in 
this case it should take a value of 0, 1 or 2. An assigned value of 0 
corresponds to a 'READ' command, and a value of 1 or 2 corresponds to a 
'WRITE' command - the first (1) will write with an End-of-File marker 
(EOF) and the second (2) with an End-of-Tape marker (EOT) when the file 
is closed. As usual, an unspecified secondary address will be, by default, 
assumed as 0. If no filename is specified then the operations will be 
undertaken on the first file encountered on the tape. 

To output data to this file the PRINT# command is used with the 
corresponding file number specified. PRINT# works in the same fashion 
as PRINT except that the data is output as a block of bytes, that will 
eventually be sent to the cassette unit, rather than on the screen. For 
example, just as a comma between two print items causes the second 
item to be placed in the next print zone, a comma between two items in a 
PRINT# statement causes the second item to be placed at the first 
position in the next block of ten characters. 

Likewise INPUT# and GET# are used to input data; GET# is used when 
the input data is limited to one byte at a time. More care has to be taken 
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when using INPUT# which enable several variables to be input. When 
several variables are input using INPUT they are seperated by a comma 
and accepted by pressing RETURN. Similarly when data is set upon a tape 
data file that is going to have the items accessed using INPUT#, commas 
and the RETURN character (CHR$(1 3)) are again included. 

Finally, all files must be closed: if this is not done, some data could be left 
in the cassette buffer and not get written to the tape. 

To demonstrate the file management commands that we have looked at, 
some examples follow. 

WRITING A DATA FILE 

The first example sends a list of 300 numbers to the tape; the file is 
opened without a filename and with a secondary address of 1 so that an 
EOF marker is written when the file is closed. In order that we can identify 
all the numbers separately, rather than one large number 1 2345...etc..., a 
carriage return character will be sent after each number. Also, at the end of 
the PRINT# statement is a semicolon which suppresses the carriage 
return and linefeed characters that are present. It is very important that 
when more than one variable is written using a single PRINT# statement, 
that separators between the variables are also written to the tape. 


example 1 


10 REM **##*###*#*#####*#♦*## 
15 REM * CRSSETTE DRTR FILE # 
20 REM #####*#**############* 
25 REM 

30 OPEN 1,1,1 
35 FOR J=1 TO 308 
40 PRINTttl,J;CHR$<13); 

45 NEXT J 
50 CLOSE 1 


Data items may also be sent as strings, in the next example 1 0 strings of 
characters are stored on tape. Again a secondary address of 1 is given to 
write a EOF marker when the file is closed. 
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example 2 


10 rem *m*mm^mm**m$m* 

15 REM * CASSETTE DATA FILE * 

20 REM ****#***#####***f#***^ 

25 REM 

30 OPEN 1,1,1 
35 READ N* 

40 IF N$= "" THEN CLOSE 1 'END 
45 PRINT#1,N$;CHR$<13)J 
50 GOTO 35 

55 DATA THIS,IS,THE,VOICE,OF, THE,MYSTERONS 
60 DATA "" 


The final write example sets up a file to include records containing names 
and telephone numbers which are entered by the normal INPUT statement. 
We shall later see a program that reads the file and searches for a specified 
name. 


Program 49 - TELEPHONE PAD (PART 1) 


10 REM a****###**##*###* 

15 REM * TELEPHONE PAD * 

20 REM #====—=*===«===* 

25 REM * MRH 1/7/1983 * 

30 REM #####*###*#*#*### 

35 REM 

40 OPEN 1,1,1,"TEL PAD" 

45 PRINT 'TIM TELEPHONE PAD " 

50 PRINT "MS ENTER NAMES AND TELEPHONE NUMBERS " 
55 PRINT "M ENTER STRINGS TO TERMINATE " 

60 INPUT "M ENTER NAME ";N$ 

65 INPUT "S ENTER NUMBER "JTf 

70 IF N$="*" OR T$="#" THEN CLOSE 1 ; END 

75 PRINT#1,N*J",";T$;CHR$ <13); 

80 GOTO 45 
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READING A DATA FILE 


Reading a cassette data file is similar to the technique of creating one 
except that INPUT# is used with a logical file that is opened with a 
secondary address of 0. The next three programs read the data files we 
have just created. Remember from chapter 20 that a EOF is found when 
the function STATUS returns a value of 64. 

example 1 

10 REM M%**%*%*MWM**%%M* 

15 REM * CASSETTE DATA FILE * 

20 rem 

25 REM 

30 OPEN 3,1,0 
35 INPUT#3,N 
40 PRINT N, 

45 IF STATUS=64 THEN CLOSE 3 : END 
50 GOTO 35 


example 2 

10 REM #**#*#########*##*#### 

15 REM * CASSETTE DATA FILE * 

20 REM ###*#########*#**####* 

25 REM 

30 OPEN 3,1,0 
35 INPUT#3,N$ 

40 PRINT N$;" 

45 IF STATUS=64 THEN CLOSE 3 : ENB 
50 GOTO 35 


Program 49 - TELEPHONE PAD (PART II) 


10 REM ###*##**######*** 
15 REM * TELEPHONE PAD * 
20 REM *«===c==e==3====* 
25 REM * MRH 127/1983 * 
30 REM 3)E3te«*^*^34n)(****^*** 
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35 REM 

40 OPEN 3,1,0 

45 PRINT "3 m TELEPHONE PAD" 

50 INPUT "MMM ENTER NAME REQUIRED ";R$ 

55 INPUT#3,N$,Tf 

60 IF N$=R* THEN PRINT "MM TELEPHONE NUMBER ";T$ 
75 

65 IF ST=64 THEN PRINT "MM RECORD NOT PRESENT " 
75 

70 GOTO 55 
75 CLOSE 3 


: GOTO 
GOTO 
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CHAPTER 24 


DATA STORAGE ON DISK 


When storing data on floppy disk, we have the choice of organising the 
data in either sequential or random access files. When sequential files are 
used, the file has to be read through from the beginning until the required 
record is found; in random access files any record can be accessed almost 
equally quickly. Unfortunately, random access files generally occupy more 
memory, thus the programmer has the choice of either minimising access 
speeds or of maximising memory efficiency. Usually, if the file requires 
less than 30K of data, sequential files are chosen since the access times 
are still within reasonable limits. 

SEQUENTIAL DATA FILES 


To utilise sequential files we need to know how to 

(1) Set up a file 

(2) List the file 

(3) Access records in the file 

(4) Delete records from the file 

(5) Amend records in the file 

(6) Add records to the file 

Each of these will be explained and then all six will be illustrated in a 
program. 

As usual, all communication is done via logical files which must first be 
opened to communicate with device 8 - the disk drive. In this case the 
general syntax of the statement is: 

OPEN file number, device number, secondary address 
"drive number: file, type,mode" 

When the logical file is opened, the secondary address should specify a 
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communication link, called a 'channel', in the range 2 to 1 4. 1 5 is reserved 
for the command channel and 0 and 1 have specific uses with LOAD and 
SAVE. In our case, the disk drive number 0 may be omitted, the file type is 
'SEQ' (or 'S') and the mode is either 'READ' (or 'R') or 'WRITE' (or 'W'). 

If a file is required to be opened for both READing and WRITEing then two 
communication channels must be created. 

SETTING UP A SEQUENTIAL DATA FILE 

Sequential disk files may be created by the following operations: 

Open a logical file to write to the disk, 
example OPEN 2, 8, 2, "DATA, S, W" 

As with sequential files on cassette tape, to output data to this file the 
PRINT# command is used with the corresponding file number specified. 


example PRINT# 2, DATAS 


Finally the file must be closed which also puts an EOF marker at the end of 
the file. If the file is not closed the data cannot be read back from the file. 


example CLOSE 2 


LISTING A SEQUENTIAL FILE 


Listing a file is simple; you just open a 'READ' communication link to the 
disk and then INPUT# and print each item. 

example OPEN 3, 8, 3, "DATA, S, R" 

and use INPUT# 3, DATA $: PRINT DATA $ 

SEARCHING FOR A RECORD 


To search for a record in a file each record from the beginning of the file is 
read until the required record is found; this usually involves checking one 
or more fields in each record until the required record has been found. 
Careful thought may be needed as the value in a field may not be unique to 
one record. For example, do you want the first record or all of the records 
that have the specified values? If the EOF marker is reached then the 
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record is not present in thefileand so some suitable error messageshould 
be given. 

DELETING A RECORD 


This involves reading each record in the file from the beginning to the EOF 
marker and, with the exception of the unwanted record, each record is 
written to a temporary file. Each record is tested, using some key (a 
particular field) as previously described. When the temporary file has been 
closed it can be renamed with the original file name. 

AMENDING A RECORD 

This is the same as deleting a record except that the record is updated and 
also written to the temporary file. 

ADDING A RECORD 

Again, a file is written to a temporary file and the new record is added onto 
the end before the EOF marker is written and the file renamed. In some 
cases they will be required to be sorted with the key in some order. In this 
case the file should be written to the temporary file until it reaches the 
position where the new record should be inserted. The new record can 
then be written to the temporary file and then the rest of the file after it. 

When reading a sequential data file it is important that the program can 
recognise when the end of the file has been reached. This can be done in 
several ways: 

1) Write the file with a fixed number of records so that a known number of 
records have to be read back. 

2) Store the number of records in the file in the first record of the file. The 
file can be read by reading the first record and then the number of records 
specified. 

3) Use the function STATUS which takes a value of 64 on reaching the 
EOF marker, which is written to the file when it is closed. See Figure 20.3. 

4) Write your own record at the end of the file which your program can 
recognise as the terminating record. 

Program 50 which functions as an address book demonstrates how a 
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sequential file can be created, and how records can be listed, amended, 
deleted and added. The fourth option above for recognising the end of file 
has been used as it is the clearest for the reader to comprehend. 


Program 50 ■ ADDRESS BOOK 

5 rem mmmmmmmmm* 

10 REM * ADDRESS BOOK % 

15 REM * SEQUENTIAL FILE * 

20 REM 

25 REM * MRH 1/7/1983 * 

30 REM W*M*W*'M#'*m**.*% 

35 REM 

40 OPEN 158, 1 5,"I" : GORIIB l mm 

45 POKE 53280,14 

50 PRINT "IMWRl ADDRESS BOOK " 

55 PRINT "MS PRESS- M" 

60 PRINT " FI .. ACCESS RECORD" 

65 PRINT 8PC<20>;" F2 ,. CREATE FILF " 

70 PRINT " F3 .. AMEND RECORD" 

75 PRINT SPC<20);" F4 ,, LIST FILE " 

80 PRI NT " F5 ., ADD RECORD " 

85 PRINT SPC<20>;" F6 ,, COMMAND MODE " 

90 PRINT " F7 .. DELETE RECORD".~ 

95 PRINT SPC(20);" F8 .. SCRATCH FII E " 

100 GET K$ -IF K $~"" THEN 100 
105 K=ASC<K$) -IF K<133 OR K>140 THEN 100 
110 ON K-132 GOSUB 1000,3800,5000,7000,2000,4000, 
6000,8000 
115 GOTO 45’ 


1000 REM ** ACCESS RECORD ** 

1005 POKE 53280,7 

1018 OPEN 3,8,3,"DATA,9EQ,READ" : GOSUB 10000 
1.015 PRINT 'TJMfi ADDRESS BOOK " 

1020 PRINT "SS ACCESS RECORD " 

1025 INPUT "MS ENTER NAME ";IN* 
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1030 INPUT#3,N$,fl1 $ ,A2$,03$,04$,05$,T$ :GOSUE 10008 

1035 IF N$="E-0-F" THEN PRINT "MS END OF FILE " '. 

GOTO 1090 

1.048 IF IN$OH$ THEN GOTO 1038 
1.845 PRINT »S» ";N$ 

1058 PRINT " ";01$ 

1055 PRINT " ".;02$ 

I860 PRINT " "P3$ 

1065 PRINT " ".; A4$ 

1078 PRINT " ",;R5$ 

1075 PRINT " "T$ 

1888 GET K$ : IF K$="" THFN 1088 
1885 GOTO 1038 
1098 CLOSE 3 : GOSUB 10000 
1895 PRINT "MS EXIT CV/N) ?» 

1100 GET K$ 'IF K$="" THEN 1100 
1105 IF K$="N" THEN 1010 
1110 RETURN 


2088 REM ** CREATE DATA FILE ** 

2085 POKE 53288,7 

2018 PRINT "riSMli ADDRESS BOOK " 

2015 PRINT "MS DATA FILE BEING CREATED" 

2028 OPEN 4,8,4, "DATA,SEG,WRITE" '•GOSUB 18008 
2025 N$="E-0-F" : GOSUB 9208 
2830 CLOSE 4 
2035 RETURN 


3000 REM *# AMEND RECORD ** 

3805 POKE 53288,7 

3818 OPEN 4,8,4,"BOTRTEMP,SEQ,URITE" ■GOSUB 10000 
3815 OPEN 3,8,3,"DATA,SEQ,READ" =GOSUB 10800 
3020 PRINT "nSMI! ADDRESS BOOK " 
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3025 PRINT "MS AMEND RECORD " 

3039 INPUT "MS ENTER NAME "NN$ 

3035 IHPIJT#3,N$,A1$,A2$, A3$, A4$,A5$,T$ :G03UB 10000 

3040 IF H$="E-0-F" THEN 3130 

3045 IF NN$ON$ THEN GOSUB 9200 :GOTO 3035 


3050 

PRINT 

"IMS NAME 


3055 

PRINT 

" REDRESS 

"; Al$ 

30 bU 

PRINT 

H 

"; R2$ 

3065 

PRINT 

1! 

" ; R3f. 

3070 

PRINT 

II 

"; 

3075 

PRINT 

i; 

"; fl5$ 

3080 

PRINT 

" TELEPHONE 

" ; Tt- 

3085 

PRINT 



3098 

INPUT 

"MS NAME 

"ill 

3095 

INPUT 

" ADDRESS 

'Ml* 

3188 

INPUT 

11 

12$ 

3105 

INPUT 

II 

" 13$ 

3118 

INPUT 

;i 

14$ 

3115 

INPUT 

it 

15$ 

3120 

INPUT 

" TELEPHONE 

", 1T$ 

3125 

GOSUB 

9100 GOTO 

3835 


3130 PRINT"MS END OF FILE " 

3135 N$="E-0-F" =GOSUB 9200 

3140 CLOSE 3 ■GOSUB 18000 ; CLOSE 4 :GOSUB 18800 

3145 PRINT#15,"S : DATA" :GOSUB 10080 

3150 PRINT#15,"R ; DATfi=DAT ATEMP" ■ GOSUB 10000 

3155 F'R I NT# 15," S '• DATATEMP" : GOSUB 10008 

3160 RETURN 


4000 REM ** LIST DATA FILE ** 

4085 POKE 53280,7 

4010 OPEN 3,8,3,"DATA,SEQ,READ" :GOSUB 10800 
4815 PRINT "ZUtm ADDRESS BOOK " 

4020 PRINT "MS PRESS SPACE BAR FOR EACH RECORD " 
4825 GET K$ : IF K$="" THEN 4025 

4030 INPUT#3,N$,A1$,A2$,R3$,A4$,A5$,T$ ■GOSUB 10800 
4035 IF N$="E-0-F" THEN 4885- 
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4040 PRINT "nssa ADDRESS BOOK " 
4045 PRINT "MS ”;N* 

4850 PRINT " ";A1$ 

4055 PRINT " ";R2* 

40.60 PRINT " ";A3* 

4065 PRINT " "A4$ 

4070 PRINT " "R5$ 

4075 PRINT " ";T$ 

4080 GOTO 4025 

4085 PRINT "MS END OF FILE " 

4090 WRIT 197.i 191 

4095 CLOSE 3 '• GOSUB 10000 

4100 RETURN 


5000 REM m ADD RECORD M 
5005 POKE 53280,7 ; F=0 

5010 OPEN 48,4. 11 DRTATEMP , SEQ.. WRITE" '■GOSUB 10000 
5015 OPEN 3..8,3, "DATA.SEQ,READ" : GOSUB 10000 
5028 INPUT#3. N$fl 1 %, A2*, A3*R4*, R5*, T$ '■ GOSUB 10000 
5025 IF N*O"E-0-F" THEN GOSUB 9200 :GOTO 5828 
5030 PRINT "nSMTI ADDRESS BOOK " 

5035 PRINT "MS RED RECORD " 

5040 PRINT "MS ENTER DETAILS " 


5845 INPUT "MS NAME ";IN$ 

5850 INPUT " ADDRESS ";I1$ 

5055 INPUT " 12$ 

5060 INPUT " ";13# 

5865 INPUT " "14* 

5070 INPUT " 15* 


5875 INPUT " TELEPHONE MIT* 

5080 GOSUB 9100 

5085 PRINT "MS EXIT <V/N) ?" 

5098 GET K* ; IF K$="" THEN 5090 
5095 IF K*="N" THEN 5030 
5100 N$="E-0-F" : GOSUB 9200 

5105 CLOSE 3 :GOSUB 10000 =CLOSE 4 -GOSUB 10000 
5110 PRINT#15.. "S : BATA" :GOSUB 10000 
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5115 PR i NT# 15 j " R : DATA=BATflTEMP" • GOAi ifi j 0000 

5128 PR I NT# 15.. "S : DATATEMP" •■POPilB 18888. 

5125 RETURN 


6800 REM m RETURN TO COMMAND MODE ** 

6805 POKE 53230,7 

6810 PRINT n :BD®l ADDRESS BOOK " 

6815 PRINT "MM RETURNING TO COMMAND MODE i ! " 

6020 PRINT "MM PRESS SPACE BAR TO CONFIRM " 

6025 PRINT "MM ANV OTHER KEV TO ABORT 11 

6038 GET K$ -IF K$="" THEN 6830 

6835 IF K$<>" " THEN RETURN 

6840 PRINT "IT -POKE 53280,14 

6845 CLOSE 15 

6850 END 
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7000 REM ** DELETE RECORD ** 

7005 POKE 53280.7 

7010 OPEN 4,8,4, "DfiTfiTEMP,SEQ.. WRITE" :GOSUB 10000 
7015 OPEN 3,8,3,"DATA,SEG,READ" •• GOSUB 16900 
7020 PRINT -TJSWffil ADDRESS BOOK " 

7025 PRINT »m DELETE RECORD " 

7030 INPUT ENTER NAME 'LIN* 

7035 IHPUT#3, N$,A1£, A2t-, A3£, R4£, A5£, T£ : GOSUB 10000 

7840 IF N$="E-Q~F" THEN 7060 

7045 IF IN$ON$ THEN GOSUB 9200 

7050. IF IN£=N£ THEN PRINT "MS DELETED " 

7055 GOTO 7035 

7060 PRINT "MB END OF FILE " 

7865 N£="E-0-F" :GOSUB 9200 
7070 WAIT 197,191 

7075 CLOSE 3 :GOSUB 10800 -CLOSE 4 :GOSUB 10000 

7088 PRINT#15,"S’-DATA" :GOSUB 18600 

7085 F'R I NT# 15, " R : DATR=DRTRTEMP" :GOSUB 10000 

7690 PR I NT# 15," S DATATEMP" : GOSUB 10080 

7095 RETURN 


8008 REM m SCRATCH DATA FILE ** 

8805 POKE 53286,7 

8016 PRINT "raWS! ADDRESS BOOK " 

8015 PRINT "MS SEATA FILE WILL BE SCRATCHED !!" 
8826 PRINT "MS PRESS SPACE BAR TO CONFIRM " 

8025 PRINT "MM AHV OTHER KEV TO ABORT " 

8630 GET K£ -IF K£="" THEN 8030 
8035 PRINT "MM CONFIRMED " 

8040 IF K£=" " THEN PRINT#15,"S- DATA" -GOSUB 10000 
8045 RETURN 
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900-0 REM *######•*#♦*##*## 

9085 REM # WRITE IiftTfl * 

9018 REM 

9100 PRINT#4, !N$;"."; 11* • i! ,"; 12$;", '* 113$; ”, "; 14$ 
15$;".,IT$;CHR$(13); 

9105 GOSUB 18000 
9110 RETURN 

9200 PRIHTS4,H$;",";Rl$; ,! ," ; R2$; ", "03$: ’•, ";94$; 

R5$;" ," ;T$;CHR$<13>.; 

9205 GOSUB 10000 
9210 RETURN 


10000 
10005 
10010 
18015 
18020 
10025 
10030 
18035 
1 0040 
10045 
18058 
10055 
1 0068 


REM #**##*######***#***♦#*#*# 

REM * BISK ERROR SUBROUTINE * 

REM ##*#**#*#**•****#•##♦****#* 

REM 

INF’UT#15,EN,EM$,ET,E3 
IF EN<20 THEN RETURN 

PRINT "rWBRS BISK ERROR HRS OCCUREB MS" 
PRINT "ERROR NUMBER 
PRINT "ERROR MESSAGE 


PRINT 

CLOSE 

STOP 


"TRACK NUMBER 
"SECTOR NUMBER 
3 : CLOSE 4 ; CU 


; EM$ 
JET 
; ES 


)SE 
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RANDOM ACCESS DATA FILES 


Although the concepts of random access files may seem initially complicated 
the only real problem that occurs for the beginner is to absorb the 
numerous commands that are required to be used. We said earlier that 
random access files used considerably more memory when compared to 
sequential files; this is because the length of each field in all the records is 
set to the same size and to that of the item with the maximum length 
expected. This may seem a waste of space but, because the length of a 
record is known, we have knowledge of the layout of the whole file and so 
can write to a record without having any fear of overwriting part of the next 
record. 

ADVANCED DISK CONTROL 

In order that we can use random access files we are going to have to delve 
a little deeper into the structure of the floppy disk and the operating 
system used by the disk drive. 

The floppy disk used by the disk drive contains 35 concentric tracks, 
which are labelled from 1, for the outermost track to 35 forthe innermost 
track, on which the programs and data are stored. 

Each track is subdivided up into a number of sectors or blocks each of 
which can store 254 bytes of data plus a number of other items used by 
the DOS. The number of blocks per track varies depending on its position 
from the centre of the floppy disk; the outermost tracks have a longer 
circumference and so can store more data. The number of blocks for each 
track is listed in Figure 24.1 


Track No. 

Sector No. 

Total No. of Sectors 

1-17 

0 - 20 

21 

18-24 

0-19 

20 

25 - 30 

0-18 

19 

31 - 35 

0-17 

18 


Figure 24.1 Block (Sector) Distribution on a Floppy Disk 
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A program or data file which is stored on the disk may occupy several of 
the blocks. Since these blocks need not be stored sequentially on the disk 
each block contains a two byte pointer to indicate the position (track and 
sector) of the next block where the file continues. 

Two blocks on the disk, positioned on track 18, sector 0 and 1, are 
reserved by the DOS for the 'Block Availability Map' (BAM) and the disk 
directory. The BAM consists of a bit map occupying 1 39 bytes where a bit 
is set on or off to signal whether a corresponding block is vacant or not. 
The disk directory gives information about the disk itself such as its name, 
id, and detailed information on the files stored on the disk such as the file 
type, position on disk, name and size. 

By sending the disk command 'VALIDATE' (or 'V') to the disk drive the 
DOS will search through the blocks of data and construct a new BAM on 
the disk; any blocks which have been allocated but do not have an 
associated filename or files that were never closed properly will be 
deleted, freeing the space for future use. 


i.e. 

OPEN 15, 8, 15 

PRINT# 15, "VALIDATE dn" 

or 

PRINT# 15, "V" 


In our case the drive number 0 may be omitted. If a disk is ever changed 
and not re-initialised, the DOS will still be using the BAM and disk 
directory of the previous disk. This can cause corruption of data if the 
following precaution is not undertaken: when initialised, the DOS loads 
the disk id into local storage and then, whenever the disk is accessed, it 
identifies the id of the disk with the stored value and only obeys the disk 
command if they are identical. Thus, to avoid any mistakes you should 
always format all of your disks with different id numbers. 

When using random access files, all communication between the Commodore 
64 and the disk is undertaken via one of eight sections of storage available 
called disk buffers. The main advantage of this is speed since the 
computer can read/write data to the buffer faster than onto a magnetic 
medium such as a floppy disk. As a result the Commodore 64 can 
undertake other processing while the DOS transfers data between the 
buffer and blocks on the disk. By referring to Figure 24.2 it can be seen 
that there is basically five operations involved. 
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(1) Transferring data from the computer into the buffer 

(2) Transferring data from the buffer onto the disk 

(3) Transferring data from the disk into the buffer 

(4) Transferring data from the buffer to the computer 

(5) Controlling the buffer pointer 



Figure 24.2 Communicating to Disk Drive Via Disk Buffer 


The disk buffer, which contains 254 bytes available for data, is preceded 
by one byte which indicates the position in the buffer last written to and is 
followed by one byte that contains a terminator character. 

We shall now see what commands are required to undertake the five 
operations shown in Figure 24.2 Since the syntax of these commands can 
take many forms it is advisable to refer to the Commodore VIC-1 541 
users manual once the basic techniques are understood. 

COMMUNICATION CHANNELS REQUIRED 
FOR ADVANCE DISK CONTROL 


So that the Commodore 64 and the disk drive are able to 'talk' to the disk 
buffer we have to set up three communication channels. This is done as 
before by opening logical files with secondary addresses that identify the 
link number. The first channel required is the command and error channel 
which is the same as in the previous disk operations that we have already 
seen - it is obtained by specifying a secondary address of 1 5. 

i.e. OPEN 15, 8, 15 

The two remaining channels link the Commodore 64 to the disk buffer 
and the disk buffer to the disk drive; the latter can also control the buffer 
pointer which indicates the location in the buffer to be written to. The first 
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of these channels may be created using any secondary address between 2 
and 1 4 through we shall be consistent and always use the value 4. When 
creating this link we also have to specify which of the eight disk buffers we 
want to use. This is done by sending the instruction "#x" in the open 
statement where x is a buffer number 0 to 7; if x is omitted the DOS uses 
the first available buffer. 

i.e. OPEN 4, 8, 4, "#" 
links the DOS and the buffer. 

The other channel utilises the command channel although it does require 
a separate logical file. 

i.e. OPEN 5, 8, 15 

Thus summing up so far, we have the three communication channels: 

4 - Links computer to the disk buffer 

5 - Links disk buffer to floppy disk 
1 5 - Command and error channel 

With three logical files opened, it is important that you are referring to the 
correct file and at the appropriate time. Channel 4 is used to PRINT# and 
INPUT# data to or from the buffer in the same fashion as to any other 
peripheral; channel 5 is used by the DOS to control certain other 
operations on the buffer. As before, channel 1 5 is the command and error 
channel for operations such as initialising the disk or for reporting "read 
errors". When closing the files it is advisable that the command and error 
channel is closed last. 

THE ADVANCED DISK CONTROL COMMANDS 

When transferring data to and from the disk buffer we have to set the 
buffer pointer to the byte that we are referring to. The command to do so is 
'BUFFER-POINTER' (or 'B-P') and should be followed by the channel 
number of the link between the computer to the buffer and the byte 
position in the buffer. Thus using the channel that we previously opened, 
to set the buffer pointer to the first location we would send 

PRINT#5, "B-P:" 4; 1 

Now that we have created all the communication channels required and 
set up the buffer pointer we can transfer data to the disk buffer by using 
PRINT#. Care has to be taken using PRINT# since, when sent to the 
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buffer, it will contain a sequence of data items followed by carriage return 
and linefeed characters. These two terminator charactors can cause 
problems when reading back the data since we usually need only a single 
terminator to distinguish between the different items. We have seen 
earlier with cassette data files that a semicolon at the end of the PRINT# 
statement suppresses a carriage return and linefeed - thus, one solution to 
avoid any problems is to send the data required followed by a semicolon, 
then a linefeed character CHR$( 1 3) to distinguish the different data items 
and, finally, another semicolon to suppress any further terminator 
characters. If one PRINT# statement is used to transfer several items of 
data then they should be separated by the comma character, CHR$(44). 

For example, to send the variables A$ and B$ to the buffer position 
specified in the previous example we would use: 

PRINT#4, A$; CHR$(44); B$; CHR$(13); 

To transfer data to and from the buffer and a particular block on the disk we 
use the commands 'BLOCK-READ' (or 'B-R') and 'BLOCK-WRITE' (or 'B- 
W') respectively. After these commands we must specify the file number 
that linked the computer and buffer, the disk drive number and, finally, the 
particular track and sector on the disk. 

Thus to write our data from the disk buffer to track 1 0 sector 5 we would 
use 


PRINT#5, "B-W:" 4; 0; 10; 5 

Likewise to read back the data from the same block we would use 
PRINT#5, "B-R." 4; 0; 10; 5 

Before using INPUT# to transfer data back from the disk buffer to the 
Commodore we should ensure that the block pointer is in the correct 
position; in our example we know that the data starts at location 1 so we 
would use 

PRINT#5, "B-P:" 4; 1 

Finally, we can transfer the data from the buffer to the variables A$ and B$ 
stored in the computer by 

INPUT#4, A$, B$ 

There are a series of disk commands called U1, U2, U3....U9 which 
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undertake user defined disk commands. These commands which are 
written in 6502 machine code and stored in the disk drives RAM are 
accessed by the above commands through a jump table of which detailed 
information is given in the VIC 1 541 user's manual. 

There are two special USER commands U1 and U2 which can be used to 
replace the BLOCK-READ and BLOCK-WRITE commands respectively 
which we have just looked at. 

The format of these two commands are: 


PRINT# file,"Ui";channel number;drive number;track;sector 


These two commands have extensions over BLOCK-READ and BLOCK- 
WRITE. The main difference is the way they treat the character pointer 
byte (byte 0) in the disk buffer. 

When INPUT#ing data using BLOCK-READ the position of the last valid 
character is stored in the character pointer byte and so INPUT# terminates 
on reaching this position. U1 however forces this byte to 255 and so the 
entire buffer is INPUT#. 

Whereas BLOCK-WRITE sets the character position buffer to last position 
written to, U2 leaves this byte unchanged. 

Of the many commands and syntax variations mentioned in the Commodore 
VIC-1 541 users manual the two remaining important commands that 
should initially be learnt are 'BLOCK-ALLOCATE' (or 'B-A') and 'BLOCK- 
FREE' (or 'B-F'). Both of these commands should be followed by the drive 
number, and the track and sector of the disk involved. 

'BLOCK-ALLOCATE' updates the copy of the BAM used by the DOS to 
show that a specified block has been allocated; as a result the DOS knows 
not to write to this block. A copy of this BAM is written to the disk when the 
relevant links are closed. Before writing to a block we should use 'BLOCK- 
ALLOCATE' since if the block has already been allocated a disk error will 
be returned. If we use INPUT#1 5,EN,EM$,ET,ES as shown in Program 
46 then if no error has occurred, (EN=0), ET and ES will return the next 
available track and sector. 

As an example, to make the block at track 1 0 sector 5 unavailable for use 
PRINT#5, "B-A:” 0; 10; 5 
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Similarly the command 'BLOCK-FREE' releases a previously allocated 
block from the BAM. 


For example to release the same block: PRINT#5, "B-F:" 0; 1 0; 5 

BLOCK ALLOCATION & HASHING 


Before we can write any programs using random access files we have two 
remaining problems. First we need to decide on how we are going to 
allocate the available disk space and, second, we need a method of being 
able to specify a key and to calculate the location on the disk where the 
record with that key is situated. 

There are no fixed rules on how the records of a random access file should 
be distributed amongst the 254 byte blocks on a disk and so it is up the 
the programmer to decide on what he feels is the optimum layout for 
efficiency with both memory space and access speeds. In order to make 
the 'BUFFER-POINTER' commands simple it makes good sense to use 
sequential blocks on the disk and to set the start of each record at regular 
intervals. 

Methods for calculating a records position from a key are called hashing 
algorithms for which many techniques, including some very complicated 
ones, exist. The complexity usually depends on whether the keys have a 
fixed pattern or are random; usually the more regular the pattern the 
simpler the hashing algorithm. In order to master random access files it is 
advisable to use keys with an obvious pattern to resolve the hashing 
algorithm to a linear formula of the type relative position = a* key -I- b. 

If the keys are in a semi random order we can often use the techniques of 
sorting described in chapter 1 1 to order the file with reference to some 
key; we can then use a hashing algorithm to find approximately the 
location of a record and then search sequentially for the exact record from 
this point. 

As an example of a hashing algorithm, consider the problem of storing 
each date in the year on disk along with all the names of friends whose 
birthdays lie on that date. Thus we need to allocate disk space for 1 2 
months of up to 31 days and provide enough space to write the names of 
say up to 15 characters each. Remember that the method to be given is 
just one example of the many ways you could attack the problem. 

We shall allocate two tracks on a disk to each month and store the data 
using sixteen blocks on the first of the tracks and as many blocks required 
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on the second track to make up the number of days in the month. 

IMPORTANT - Care has to be taken to avoid track 1 8 sectors 0 and I 
since these contain the disk directory and BAMM 

Using tracks 1 & 2 for January, tracks 3 & 4 for February etc, the following 
algorithm returns a unique block for any date and avoids the disk directory 
and BAM. 

Day d 
Month M 

IF d<=1 6 

THEN track = 2*M-1: sector = d 
ELSE track 2*M: sector = d-1 4 

e.g. 6th May = track 9 sector 6 

Once the unique block for the date is known we can store the name on the 
disk. Each name is separated by the character CHR$( 1 3) and the last 
name on the block is followed by the character V". Thus when a name is 
added the buffer pointer is set to the position where the character "/" is 
situated. 


e.g. Program 51 - BIRTHDAY DATABASE 


5 REM ####################### 

10 REM * BIRTHDAYS * 

15 REM * RANDOM ACCESS FILES * 

20 REM #=«==:=r=====:= = =.==:^==:^ = : S ==: # 

25 REM * MRH 1/7/1933 * 

30 REM ‘M # $$$$ # # # $ $ % % $ $ $ $ 

35 REM 

40 PRINT ,, ™WB $ ENTER BIRTHDAY DATA DISK ! ! ,! 
5 WAIT 197,191 
0 OPEN 15,8,15, n P 


5 

A 


OPEN 5,8,15 

DIM NM( 12) --FOR J=1 TO 12 ••READ MM ( J> 
PRINT 'THM BIRTHDAY DATABASE " 

print "mm press' m n 

PRINT !5 FI .. CLEAR 


'■ NEXT 


88 PRINT " F2 .. FORMAT " 
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85 PRINT " F3 .. ENTRV " 

90 PRINT " F5 .. ENQUIRY " 

95 PRINT " F? .. QUIT 

100 GET K$ : IF Kf="" THEN 100 

105 K=ASC<K$>-132 '-IF K<1 OR K>5 THEN 100 

110 ON K GOSUE 1000,2000,3000.. 4000,5008 

115 POKE 53280,14 

120 GOTO 65 

200 DATA 31,29,31,30,31,31,31,31,30,31,30, 
1008 REM m RESET BATE ** 

1005 POKE 53280,5 

1010 PRINT "IMS BIRTHDAY DATABASE " 

1815 PRINT "MW RESET DATE " 

1820 INPUT DATE M« '• D=D5i 
1025 INPUT " MONTH ";MJi 
1030 IF M<1 OR M>12 THEN 1810 
1035 IF D<1 OR D>NM(M) THEN 1010 


1040 PRINT "IMS BIRTHDAY DATABASE " 

1845 PRINT "S DOB ";D;;M 

1050 PRINT "SS ARE YOU SURE <Y-N> ?? " 


1055 GET K'$ ■ IF K$="" THEN 
I860 IF K$0"Y" THEN 1100 
1065 GOSUB 6000 ^REM HASH 
1070 OPEN 4,8,4,"#" 

1075 PRINT#5,"B-R:"4;8;T; S 
1080 PRINT#5, "B-P '• "4.: 1 
1085 PR I NT#4CHR$ < 13 >; 
1090 PR I NT#5, " B-W:" 40T j S 
1095 CLOSE 4 


1055 


GOSUB 10000 
GOSUB 10800 
GOSUB 18000 
GOSUB 18000 
GOSUB 10008 


1180 RETURN 


31 


2008 REM ADD A RECORD ## 

2005 POKE 53280,5 

2010 PRINT "IMS BIRTHDAY DATABASE " 
2815 PRINT "m RECORD ENTRY » 

2020 INPUT "W DATE ";BX :D=DX 
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2825 INPUT " MONTH ";MJJ -M=M% 

2030 IF M< 1 OR MM2 THEN 2010 
2835 IF BO OR Ii>NM(M) THEN 2010 
2040 NN$="" =INPUT "M ENTER NAME "> NN$ 

2045 NN$=LEFTf<NNT,20) 

2058 PRINT n 7m BIRTHDAV DATABASE " 

2055 PRINT "]m NAME ";NN# 

2060 PRINT "» DOB ";B;"/";M 

2065 PRINT n m ARE VOU SURE (V-N) ?? " 

2070 GET K$ -IF Kf="” THEN 2070 

2075 IF K$<>"V" THEN 2145 

2088 GOSUB 6800 : REM HASH 

2085 OPEN 4,8,4/'#" -GOSUB 10000 

2090 PRINT#5,"B-R-"4;0;T.;S -GOSUB 10000 

2095 P=1 

2180 INPUT#4,N$ :GOSUB 10000 

2105 IF N$= V" THEN 2120 
2110 P=P+1+LEN(N$> 

2115 GOTO 2108 

2129 IF P+LEN(NN$»258 THEN PRINT "M BLOCK OVERFLOW ! ! 
" -WAIT 197,191 -GOTO 2140 

2125 PRINT#5,"B-P : "4;P : GOSUB 18800 

3130 PR I NT#4, NN$ CHR$ (13);"/'".: CHR$ (13); : GOSUB 10000 
2135 PRINT#5, "B-W:"4;0;T.:S -GOSUB 10088 

2148 CLOSE 4 
2145 RETURN 


3000 REM ** ACCESS A RECORD *# 

3805 POKE 53280,5 

3010 PRINT "nSM BIRTHDAV DATABASE " 

3815 PRINT "MS RECORD ACCESS " 

3020 INPUT "M DATE " :W. :D=D/i 

3025 INPUT " MONTH "JMX :M=M2 

3030 IF MO OR MM2 OR DO OR D>HM(M) THEN 2010 

3033 GOSUB 6008 : REM HASH 

3835 PRINT "mSDfi BIRTHDAV DATABASE " 

3040 PRINT"M DOB ";D;V";M;"M" 
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3045 OPEN 4..8.4,. : GOSUB 10000 

3050 PRINT#5,"B-R:"4;0;TJS : GOSUB 10000 
3052 PRINT#5,"B-P : "4;1 :GOSUB 10000 

3055 FOR J=i TO 20 
3060 INPUT#4,N$ 

3065 IF Nf="/" THEN 3080 
3870 PRINT " N$ 

3875 NEXT J 

3080 PRINT "M-» 

3085 WAIT 197,191 
3090 CLOSE 4 
3095 RETURN 


4000 REM ** RETURN TO COMMAND MODE ** 

4005 POKE 53280,5 

4010 CLOSE 5 'CLOSE 15 

4015 PRINT "ntffS BIRTHBAV DATABASE " 

4020 PRINT "MS RETURN TO COMMAND MODE " 
4025 PRINT "MM PRESS SPACE BAR " 

4030 GET K* ; IF K$="" THEN 4030 
4035 IF KfO" " THEN RETURN 
4040 CLOSE 5 :CLOSE 15 
4945 POKE 53280,14 
4050 END 


5000 REM ** FORMAT DISK. ** 

5005 POKE 53280,5 

5010 PRINT "IMM BIRTHDAY DATABASE " 

5015 PRINT "MS DISK FORMAT " 

5020 INPUT "MARE YOU SURE (YES/NO) *>? ";K* 

5825 IF K*<>"YES" THEN RETURN 
5030 FOR J=1 TO 5 

5035 PRINT "M AS DISK WILL BE FORMATED.. OK ?? " 
5040 NEXT J 
5045 WAIT 197,191 

5050 PRINT#15,"NEW-BIRTHDAYS,22" ■GOSUB 10080 
5055 OPEN 4,8,4,"#" •• GOSUB 10000 
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in in 


5060 

FOR 

M*1 

TO 

1 





5065 

FOR 

jj- 1 

TO 

N 





5070 

GOSl 

B 6880 

: REM 

HASH 



5875 

PR IN 

T#5, 

"B- 

-p 

: "4; 

1 

:GOSUB 

1 0000 

5880 

PRINT#5, 

"B- 

-R 

: "4.: 

0;T ;8 

'• GOSUB 

1 0000 

5085 

PR IN 

T#4, 

it ;•: 
t 


:hr# 

<13); 

: GOSUB 

1 0000 

5098 

PR IK 

T#5, 

i! Ti 

D~ 

-14 

: "4; 

3; IS 

’■ GOSUB 

1 0000 

5095 

NEXT 

B ' 

HE? 

;-r 

M 





5180 CLOSE 4 

185 PRINT "M BIRTHDAY BISK HRS BFFH F8PMRTTED " 
118 RETURN 


6808 REM ** HRSHING ** 

6885 IF BO 16 THEN T=2#M-1 : S=B 'GOTO 6015 
6010 T=2*M : 5=15-14 

6015 RETURN 


18800 REM $##########;############## 
10005 REM * BISK ERROR SUBROUTINE * 
10810 REM ####**#######*#####*##**# 
10815 REM 

18820 INPUT#15,EN,EM#,ET,ES 


10025 

IF EN< 

:26 THEN RETURN 


10030 

PRINT 

*THKGia BISK ERR 

:OR HAS OCCUREB 

10035 

PRINT 

"ERROR NUMBER 

"; en 

10040 

PRINT 

"ERROR MESSAGE 

"EM$ 

10045 

PRINT 

"TRACK NUMBER 

"; ET 

10050 

PRINT 

"SECTOR NUMBER 

"ES 

10055 

STOP 
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There is one other method for block allocation and keeping track of 
whereabouts the information is situated on the disk. Let us suppose a 
record R$ has been set up and is to be written to the disk so that it can be 
accessed directly by specifying a key K$ which is a field contained in R$. 

Vacant space is found at Track T and SectorS by using the disk command 
BLOCK-ALLOCATE as described previously. Once the record is senttothe 
disk buffer using PRINT# and then written to the disk, we need to 
remember the position where it is stored. A suitable method is to keep a 
simple index such as 3 x n array in main memory which relates a key to a 
track and sector number. So that this index is not lost when the computer 
is switched off it should be written to the disk as a sequential file. 

Reading back a record by specifying the key is now simple. One just 
searches through the index for the key and then transfers the data from 
the track and sector specified into the disk buffer. The record can now be 
read using INPUT#. 
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CHAPTER 25 

DYNAMIC DATA 
STRUCTURES 


Up till now, whenever we have required data to be contained in some fixed 
order we have stored the items in sequential elements of an array; such a 
data structure is called static. There are however occasions when we 
require a more flexible system of ordering and so we turn to several 
different methods which can be covered by the general title 'dynamic data 
structures'. While many of these techniques can be handled more suitably 
by other languages - for example ALGOL or Pascal - they can all be 
undertaken with Commodore 64 BASIC. 

As an example of what dynamic data structures are all about, consider the 
following table which containsa list of customers' orders with acardealer. 
All the records are kept in the order of the customer's surname as in Fig. 
25.1, which enables the information referring to a particular customer to 
be found easily. Suppose further that a record for the customer HARRISON 
is required to be added to the list. 


NAME 

INITIAL 

MODEL 

COLOUR 

DATA DUE 

BANKS 

M. 

240 DL 

Green 

04.5.83 

BEECH 

G. 

760 GLE 

Silver 

30.6.83 

GRAHAM 

R. 

360 GLT 

Red 

25.5.83 

HART 

W. 

240 GL 

White 

25.5.83 

HOPTON 

J. 

360 GLS 

Blue 

17.6.83 

TROWS DALE 

D. 

260 GLE 

Black 

19.6.83 


o 

340 DL 

Red 

17.6.83 


HARRISON M. 340 GL Silver 30.6.83 
Figure 25.1 
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In order that the table remains in order, the new record must be placed 
between HART and HOPTON. If these records were kept using normal 
office index cards any new record could be added by slotting the new card 
in at the appropriate position. Likewise, when the customer's order had 
been completed the corresponding record could be deleted from the 
system simply by removing the card. 


Figure 25.2 



HARRISON M 
340 GL SILVER 
30:6.83 


Our problem is to simulate such a system where we can add and delete 
records and, by reusing any vacated space, we keep the occupied memory 
down to a minimum. One data structure that can be used for this 
application is called a linked list. When using linked lists for small 
quantities of data the advantages of flexibility are offset by the disadvantages 
of complexity. 

However, it is useful to learn the techniques since general and more 
complicated structures can then be handled in a similar fashion. 


THE FORWARD LINKED LIST 

Unlike static data structures, the ordering of a linked list is contained 
alongside the data. Each element in the structure will contain two pieces 
of information; the first item will be the data itself and the second item will 
be a pointer which relates the element with another element. The data 
could contain several fields, although the list in Figure 25.3 uses just one 
field. 


element 1 element 2 element 3 element 4 element 5 



(null) 


Figure 25.3 
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Since element 1 is linked to element 2 the pointer in element 1 will have 
the value 2; similarly, pointers 2,3 and 4 will have values 3,4 and 5 
respectively. As element 5 is the last element in the list its pointer is null 
and so this could be indicated by a negative value, say -1. 

Another method would involve setting the pointer to the address in the 
memory where the element is situated. This is a form of "indirect 
addressing" that we will not discuss further. 

The structure shown in Figure 25.3 could be stored on the Commodore 
64 by using a two dimensional array where L(E, 1) would contain the data 
of element E and L(E,2) would contain the pointer to the next element. A 
variable ROOT can be used to point to the first element. 


i.e. 


ROOT = 1 


MU) 

= data 

1 

L(1.2) = 

2 

L(2,1) 

= data 

2 

L(2,2) = 

3 

L(3,1) 

= data 

3 

L(3,2) = 

4 

L(4.1) 

= data 

4 

L(4,2) = 

5 

L(5,1) 

= data 

5 

L(5,2) = 

-1 


To retrieve the data we access all the elements in the list; this is done by 
starting from ROOT and then moving along the elements in the list until 
the null pointer is reached. 


An item can easily be deleted from a linear list by amending the pointer 
from the previous element so that it points instead to the next element. 
Thus, our routine above for retrieving data would search along the list and 
jump over the deleted item. 

example - delete data item 4 


ROOT 



Figure 25.4 
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i.e. L(3,2) = 5 


If instead we require to insert an item into our list there are two stages: 
firstly we must find where in the list the item should be placed and, 
secondly, amend the pointers to include the new item. 

example - if data item 6 were to lie between items 3 and 4 


Figure 25.5 



First the pointer from element 6 should be changed to point to element 4 
and then the pointer of element 3 should be made to point at element 6: 


ROOT 



Figure 25.6 


i.e. L(6,1) = data 6 
L(6,2) = 4 
L(3,2) = 6 

In writing a general routine to undertake the addition of a data item, care 
must be taken when the data is to be placed at the beginning or end of the 
list. 
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Program 52 - LINKED LIST 


10 REM **************** 

15 REM * LINKED LIST * 

20 REM *===========«=* 

25 REM * MRH 1/7783 * 

30 REM #*##*#*##**###** 

35 REM 

40 NULL=-1 •N = 100 : DIM L<N,2> 'GOSUB 1000 

45 POKE 53280,14 

50 PR I NT" SWA LINKED LISTS" 

55 PRINT"WWW! PRESS : M" 

60 PRINT”F1 .. INITIALISE" 

65 PRINT"F3 .. LIST" 

78 PRINT"F3 .. DELETE" 

75 PRINT"F7 .. INSERT" 

80 GET K$ : IF K$="" THEN 80 
85 K=ASCCK$)-132 -IF K<1 OR K>4 THEN 80 
90 ON K GOSUB 1000,2000,3000,4000 
95 GOTO 45 


1000 REM ^INITIALISE*# 

1005 POKE 53280,8 
1010 PR I NT "n. INKED LISTS" 

1015 PRINT"W INITIALISE" 

1020 ROOT = 1 '■ NF=5 

1025 L<1,1)«100 ■■L<2,1)«200 = L<3,1>=300 :L<4,1>=400 
; L<5,1>=500 

1030 L<1,2)=2 : L<2,2>=3 :L<3,2)=4 ■L<4,2)=3 
: L<5,2)=NULL 
1035 PR I NT" ^COMPLETED" 

1040 GET K* -IF K$="" THEN 1040 
1045 RETURN 
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2000 REM **L1ST** 

2005 POKE 53280,8 

2010 PRINT"3««.INKED LISTS" 

2015 PRINT"# LIST M" 

2020 P=ROOT :IF ROOT=NULL THEN 2040 
2025 PRINT P;TAB<4);L<P,1> 

2030 P»L<P,2> 

2035 IF PONULL THEN 2025 
2040 OET K$= IF Kf="" THEN 2040 
2045 RETURN 
3000 REM ** DELETE** 

3005 POKE 53280,8 

3010 PRINT“a##.INKED LISTS" 

3015 PRINT"# DELETE M" 

3020 INPUT")SENTER DATA ITEM TO EE DELETED ";D 
: IF D<0 THEN 3020 
3025 IF ROOT -NULL THEN 3055 
3030 IF L<R00T,1)*D THEN ROOT*L<ROOT,2) 
; PRINT"#ITEM DELETED GOTO 3060. 

3035 P=ROOT 

3040 PP=P : P=*L<P,2> : IF P=NULL THEN 3055 
3045 IF L<P,1)=D THEN LCPP,2)*L<P,2) 

: PRINT"# ITEM DELETED” - GOTO 3060 
3050 GOTO 3040 

3055 PRINT"# ITEM NOT IN LIST" 

3060 GET K$ : IF K#®"" THEN 3060 
3065 RETURN 


4000 REM ** INSERT ** 

4005 POKE 53280,8 

4010 PRINT"™# LINKED LISTS " 

4015 PRINT"# INSERT »" 

4020 INPUT"# ENTER DATA ITEM TO BE INSERTED";D 
: IF D<0 THEN 4020 
4025 NF=NF+1 •L<NF,1)=D 

4030 IF ROOT=NULL THEN L<NF,2)=R00T :ROOT=NF 
•• GOTO 4065 
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4035 IF IKK ROOT.. 1 > THEN L<NF,2)=R00T :R00T=NF 
: GOT0 4065 
4040 P--RQ0T 
4045 PF‘“F' ■ F'=L<P.'2) 

4056 IF F-NULL THEN L<PP,2>=NF '• L(NF.2>-NULL 
•GOTO 4065 

4055 IF L<HF,i>>L<P,l> THEN 4045 
4068 L<PFO 2>=NF ; !_<NF.. 2>~P 
4065 PRINT"M ITEM INSERTED" 

4870 GET K$ -IF K $~"" THEN 4078 
4875 RETURN 
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One of the criteria that was stated when mentioning the requirements 
with data structures was that any vacated space could be reused. With 
Commodore 64 BASIC we need a method of releasing redundant 
elements from a data structure (some other languages do this automatically). 
One suitable method is to use another linear list that contains the 
elements that are available for usage. 

Initially, this free storage list would include all the elements, but as the 
data list expanded the free storage list would shrink. This second linked 
list would be handled using the same algorithms as the first. If the data 
item is just a single item, then there is very little advantage using the linked 
list technique over static structure since the memory used would always 
be constant. However if the data items included several fields then the 
overheads of this second list would be offset by the amount of memory 
that could be saved. 

MORE ADVANCED LISTS 

Although most applications can be handled by forward linked lists there 
are a couple of amendments that can be made which enhance the power 
of the structures we have seen. 

CIRCULAR LIST 


In a circular list or ring the last element is made to point back to the first 
element. The main advantage of such a structure is that an item that 
precedes an element identified can still be accessed without having to 
restart at the ROOT. 



Figure 25.7 L(5,2) = 1 

DOUBLE LINKED LISTS 

Even greater power can be added to linked lists by including a backward 
pointer which links up an element with its predecessor in the structure. 



Figure 25.8 
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This enables the structure to be searched in either direction. By using 
more than one pointer it is possible to order the list in more than one type 
of order. 

In small applications that we are likely to meet, the advantage of such a 
structure will be offset by an increase in the memory required for pointer 
storage. 

STACKS AND QUEUES 


There are two very useful linear data structures that are commonly used in 
computing called stacks and queues. 


A stack is a method of storing and retrieving data in the computer with the 
basic principle that the most recent item of data stored will be the first 
retrieved. Storing information is known as pushing onto the stack and 
retrieving information is known as popping the stack. The top of the 
structure is indicated by a pointer called TOP. 



PUSH A PUSH B PUSH C POP STACK 

OBTAIN C 


Figure 25.9 



PUSH D POP STACK POP STACK POP STACK 


OBTAIN D OBTAIN B OBTAIN A 


Although it is never obvious to the programmer, the system software uses 
a stack structure when dealing with subroutines. When control executes 
GOSUB, the line number of the statement plus 1 is pushed onto a stack 
and then control continues from the line specified in the statement. When 
control executes RETURN it continues from the line whose number is 
popped from the stack. This technique enables subroutines to be nested 
several levels deep although careful management is required by the 
programmer. If a RETURN is executed without a corresponding GOSUB 
statement an empty stack will be present and so when popped the error 
report 7RETURN WITHOUT GOSUB' is given. 
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A queue structure differs in that it has the rule that the most earliest item 
stored will be the first retrieved. Two pointers are required, HEAD and 
TAIL which point in the structure to the first and last items respectively. 

A queue structure is used with the keyboard buffer where keys are stored 
as they are pressed. Since it is a queue, the earliest keys pressed are 
accessed before the more recent keys. Any released space is then made 
available to store future key presses. 



Figure 25.1 0 

When an item is retrieved, HEAD is made to point to the next element in 
the structure, i.e. to the element that is pointed to by the pointer of the 
element that is being retrieved. 



Figure 25.11 

When an item is added both TAIL and the last element are made to point at 
the new item. 



The main problem is that a queue gradually drifts through the memory as 
retrievals and additions occur. One solution is to use a circular list so that, if 
all the memory at the end of a structure runs out, then items can be added 
at the beginning. If TAIL ever reached HEAD then we have run out of 
space. A similar idea was used in Program 27 to control the SNAKE. 
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GRAPHS 


Although the concepts of the linked lists are very useful as an insight into 
data structures, their use is severely limited as they can only function in 
one dimension, either forwards or backwards. In order to utilize these 
techniques with any practical ideas we often need to handle data 
structures in more than one dimension; such structures are called graphs. 

Consider for example the following which represents the air routes that a 
certain airway company undertake. 



Figure 25.13 

This could be represented by the following structure. 
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Additional data items could be included which, for example could give the 
cost, distance, etc. between two cities. 

When referring to graphs; the intersecting points are called nodes and the 
links that join the nodes are called edges. Edges can be either directed or 
undirected and may or may not contain a value (e.g. in our above example 
cost, distance etc). Nodes can represent many things; such as towns or 
positions, production output, steps in a process etc. 

TREES 

There is one special type of graph that is in common use in computing 
called a tree. A tree is a graph that contains no isolated nodes and no 
cycles, i.e. there is one and only one route for getting from one node to 
another. We are usually concerned with trees in which all nodes are 
directed away from one specific node called the ROOT; every node except 
for the root has exactly one edge, entering it. 



LEVEL 1 
LEVEL 2 


LEVEL 3 


LEVEL 4 


The number of nodes away from the ROOT is often called the level where 
the ROOT is situated at level 1. The depth of a tree is its maximum level. 
Often a preceding node is called a parent node and a descending node is 
called a sibling. 


In order to keep things simple we shall restrict ourselves to binary trees; 
these have a maximum of two edges leading from each node! 


Binary trees may be stored on the Commodore 64 using arrays in a similar 
fashion to linked lists except that three fields are required; one is used to 
contain the data and the remaining two to contain the pointers. 


Figure 25.16 
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As with linked lists we require the data to be set up in some logical order. 
For an example, let us see how we would store the following sequence of 
car names in alphabetical order in a binary tree. 

MERCEDES, FERRARI, PORSCHE, LOTUS, VOLVO, BMW, SAAB 

We commence with the first name, MERCEDES, as the root of our tree, 
and at this stage the node has no descendants. 

ROOT 


MERCEDES 




Figure 25.1 7 


Next we introduce FERRARI and since it precedes MERCEDES alphabetically 
it will become a descendant on the left. DrirkT 



Figure 25.1 8 

The next item, PORSCHE follows MERCEDES and so becomes a right 
descendent of it. 


ROOT 



Figure 25.1 9 

After examining all the information and arranging it alphabetically the tree 
will resemble: 
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ROOT 



Figure 25.20 


With Commodore BASIC we could use the arrays N$ to store the data 
items and L & R to store the left and right pointers. Other data items such 
as details about the cars can be added to the structure by storing them in 
arrays and using the corresponding subscripts. 


ROOT = 1 


1 N$( 1) = "MERCEDES” 

L(1) = 2 

R(1) = 3 

2 N$(2) = "FERRARI" 

M2) = 6 

R(2) = 4 

3 N$(3) = "PORSCHE" 

L(3) =-1 

R(3) = 5 

4 N$(4) = "LOTUS" 

L(4) =-1 

R(4) =-1 

5 N$(5) = "VOLVO" 

L( 5) = 7 

R(5) =-i 

6 N$(6) = "BMW" 

L(6) =-1 

R(6) =-1 

7 N$(7) = "SAAB" 

L(7) =-1 

R(7) =-1 


Howa tree can be created with a sequence of data is illustrated later in part 
of Program 53. 

The next obvious task is to be able to select a name and to request all the 
data that is associated to it. Having entered a name, the program searches 
down the tree starting at the ROOT and then travelling either left or right 
depending on the alphabetical order or the entered name and the one 
stored at the present node. If the null pointer is reached before the entered 
name is located then the name is not present in the tree. This method of 
searching is a form of what is called a binary chop and can be very fast, 
even with vast quantities of data. For example, by making just seven 
comparisons we can get down to level 8 of the tree which could mean that 
up to 255 elements have been searched through. 

To output all the data in the tree in the order set up, we require a systematic 
method of travelling to each node once and in the order of the leftmost 
nodes before those to their right. 
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If we consider any node in the binary tree, providing its pointers are not 
null, it is linked to two binary subtrees. Similarly, all the nodes in each of 
these subtrees are joined to further subtrees. Thus a binary subtree may 
be abbreviated to 





j LEFT 

: 

RIGHT | j 

| SUBTREE ( 


I SUBTREE | I 


Figure 25.21 

If we travel to each of these three components in a fixed order it is called a 
traversal. 


There are three traversals that are commonly used: 


1) Left Subtree 

2) Node or 

3) Right Subtree 


(LNR) 


1) Left Subtree 

2) Right Subtreeor 

3) Node 


(LRN) 


1) Node 

2) Left Subtree 

3) Right Subtree 


(NLR) 


Further traversals using the same fixed order should be made at each 
subtree. If we use the order LNR we can obtain our data in the order that 
the structure was set up with (i.e. alphabetic). 


Consider the following tree under a LNR traversal 


Figure 25.22 
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Thus our order would be L v 100, Ri. Subtree L, can be traversed LNRto 
give L 2 , 50, 59 and L 2 can be traversed LNR to give 10, 25, 27. Thus our 
order so far is 10, 25, 27, 50, 59, 100, R. 

When R 1 has traversed LNR will have accessed the whole tree in order. 

Program 53 demonstrates how to sort alphabetically a sequence of 
strings by creating a binary tree and then undertaking an LNR traversal. 

The traversal is done by starting at the ROOT and continually travelling left 
popping the nodes onto a stack. Wherever a null pointer is reached we pop 
the stack and print out the data value of the node. Having gone as far as 
possible we then back-track to the parent node by again popping the stack 
and then printing its data value. Then if there is a right hand node made we 
undertake the same process on its subtree. This process is repeated for 
the whole tree. 


Program 53 - TREE SORT 

10 REM ***************** 

15 REM * TREE SORT * 

20 REM *===============* 

25 REM * MRH 1/7/1983 * 

30 REM ***************** 

35 REM 

40 NULL—1 : M=150 

45 HIM N$<M> -DIM R<M) :DIM L(M> :DIM S<M> 
50 GOSUB 1035 
55 POKE 53280 > 14 
60 PRINT "nsW TREE SORT !l 
65 PRINT "HWS! PRESS : »" 

70 PRINT " FI INITIALISE " 

75 PRINT " F3 .. ADD TO TREE" 

88 PRINT " F5 .. LIST TREE " 

85 GET K$ ; IF K$="" THEN 85 
98 K=RSC<K*>-132 '• IF K<1 OR K>3 THEN 85 
95 ON K GOSUB 1080,2008,. 3000 
108 GOTO 55 

1000 REM ** INITIALISE ** 

1085 POKE 53280;10 

1810 PRINT "nSM TREE SORT " 

1815 PRINT "MM INITIALISE " 

1020 PRINT "MM ARE VOU SURE (V/N) ?? " 
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1025 GET K$ ■ IF K$=' ! " THEN 1025 

1030 IF K*<>"V" THEN 1065 

1035 FOR J=1 TO M 

1040 N$< J ) ="" :R<J)=0 :LOJ)=0 

1045 NEXT J 

1050 ROOT=NULL -V=d 

1055 PRINT "MM COMPLETED " 

1060 GET Kf : IF Kf-”" THEN 1060 
1065 RETURN/ 


2000 REM M ADD TO TREE ** 

2005 POKE 53280,10 

2010 PRINT "nSSI TREE SORT " 

2015 PRINT "MB ADD TO TREE " 

2820 Df="" :INPUT "M ENTER DATA ";Df 
2025 V=V+1 -IF V>M THEN PRINT"MW INCREASE SIZE OF 
ARRAY " ; STOP 
2030 IF D$="" THEN 2018 

2035 IF ROOT=NIJLL THEN N$<V>=D$ ; R(V>=NULL : L(V)=NULL 
; ROOT=V : GOTO 2075 
2040 W=ROOT 

2045 IF Nf<WXDf THEN 2060 

2050 IF L(W)=NULL THEN L(W)=V :GOTO 2070 

2055 VV=UVV> ' GOTO 2045 

2060 IF R<W)=NULL THEN R<VV)=V ^GQTO 2070 

2065 VV=R(VV) : GOTO 2045 

2078 N$<V)*D$ •R(V)=NULL •L<V>=NULL 

2075 PRINT "MB ITEM ADDED " 

2080 PRINT "M EXIT <Y/N> ?? " 

2085 GET Kf 'IF K$="" THEN 2085 
2095 IF KfO"Y" THEN 2010 
2100 RETURN 


3000 REM *# LIST TREE #* 
3005 POKE 53280,10 
3010 PRINT "USB TREE SORT 
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3015 PRINT "MH LIST TREE " 

3020 PRINT "MK PRESS RNV KEV TO LIST 

3025 IF ROOT=NULL THEN 3075 

3030 'v"v'=ROOT : P~1 

3035 IF VV=NULL THEN 3055 

3040 SCP)=VV :R=P+1 

3045 'v"v-L(VV> 

3050 GOTO 3035 
3055 P=P-i =W=S<P) 

3060 PRINT N$<VV> 

3965 VV-R(VV) 

3870 IF P>0 THEN 3035 

3075 PRINT "- !i 

3880 GET K$ -IF K$="" THEN 3080 
3885 RETURN 
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HEURISTIC PROGRAMMING 


By now you should have some ideas of the flexibility that dynamic data 
structures can provide. Trees are the most common form found in 
computing and are used in a varied range of unusual subjects. Many 
games can be studied using trees, where different branches provide the 
various options available; by using some optimizing algorithm a computer 
can examine all the possible states that could occur for any feasible move 
it next makes. 

A similar idea is used when a program learns from previous operations 
and remembers what results occur for certain moves by building onto the 
tree. The program commences with a tree consisting of a single node, the 
ROOT, and at that stage knows nothing; with time the tree will have 
expanded and soon can become "intelligent”. Programs that learn with 
experience are called heuristic. Heuristic programming is demonstrated in 
program 54 which starts off with a smaller numberof animals and facts in 
its memory. It asks you to think of an animal and then it tries to guess your 
animal by asking a series of questions to which you reply'yes' or'no'. If the 
computer is unable to guess the animal it will ask you for a question and 
answer that it can use in the future. 

The program builds up a binary tree with animals stored at the bottom 
nodes in the tree and questions in the other nodes. By asking questions 
and analyzing the answers the program can decide on which path to travel 
down the tree. When an animal is reached the computer asks if it is 
correct; if not, it asks for a question that distinguishes between the animal 
in the tree and the animal chosen. 


Program 54 - HEURISTIC ANIMALS 

18 REM ####*#####*###### 

15 REM * ANIMALS # 

28 REM *==*====**■***=—* 

25 REM * MRH 1/7/1933 * 

38 REM ##*##*#####*#**## 

35 REM 

48 GOSUB 388 -REM INITIALISE 
45 PRINT "rWDffll ANIMALS " 

58 PRINT "WA THINK OF AN ANIMAL 11 

55 PRINT "M THEN ANSWER (V/N) TO THE FOLLOWING"*" QUES 
TIONS W 
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60 P=1 

65 IF L(P)=0 PHD RCP)=0. THEN 95 

70 PRINT " ";Qf<P 

75 GET K$ ■ IF K$="" THEN 75 

80 IF "V 11 THEN PRINT "Y" -P=L(P> --GOTO 65 

85 IF K$="N" THEN PRINT "N" :R=R(P) 'GOTO 65 

90 GOTO 75 

95 PRINT " IS THE ANIMAL A ";Q$(P);" ?" 

100 GET K-T- ••IF K$=”" THEN 100 

185 IF K$="V" THEN PRINT "MM I THOUGHT SO " =GOTO 170 
110 IF K$0"N" THEN 100 

115 NF=NF+2 -IF NF>199 THEN PRINT "M INCREASE SIZE OF 
ARRAYS " : STOP 

120 INPUT "'S3 WHAT HAD YOU CHOSEN ";Q*<NF+1> 

125 Q$<NF)=Q$<P) 

130 PRINT "'SI ENTER A QUESTION THAT DISTINGUISHES" 

135 PRINT " A ";Q$(NF);" FROM A ";Q$(NF+1) 

140 INPUT "M ”.;Q*<P> 

145 PRINT "S3 WOULD THE ANSWER TO THIS QUESTION EE"/ 1 Y 
OR N FOR ";Qf(NF) 

158 GET K$ '• IF KT-="" THEN 150 
155 IF K*="Y" THEN L(P)=NF :R<P>=NF+1 =GOTO 170 

160 IF K$~"H“ THEN R(P)=HF :L<P>*NF+1 •GOTO 170 

165 GOTO 150 

178 PRINT "SI WOULD YOU LIKE TO PLAY AGAIN ?" 

175 GET K* '■ IF K$="" THEN 175 
188 IF Kf-0"H" THEN GOTO 45 
185 END 

380 REM ** INITIALISE ** 

305 N-150 =NF*12 

310 DIM Q$<N>, L<H>, R(H> 

315 FOR J=1 TO 13 
320 READ Q#-(J)..L<J),R(J) 

325 NEXT J 
330 RETURN 

350 DATA "IS IT A BIRD",3,2 

355 DATA "IS IT A MAMMAL",4,5 

360 DATA "DOES IT FLY",6,7 

365 DATA "DOES IT HAVE A TRUNK",8,9 

379 DATA "FROG",0,0 

375 DATA "ROBIN",0,0 
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380 DATA "OSTRICH",.0,0 

395 BATA "ELEPHANT”,0,0 

qqpi BATA "DOES IT HIBERNATE", 10,1 i 

395 DATA "SQUIRREL",0,0 

400 DATA "DOES IT SWIM",12,13 

405 DATA "SEAL", 0,0 

419 DATA "DOG",0,0 


Since the topic of data structures is both large and complicated anyone 
interested in delving further should obtain one of the numerous books 
specializing on the subject. A recommended book is "Successful Software 
for Small Computers" by G. Beech, published by Sigma Technical Press. 
This contains numerous BASIC programs relevant to various data structures. 
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CHAPTER 26 


MACHINE CODE 
PROGRAMMING 


WHERE DO WE GO FROM HERE? 

On reaching this part of the book you may have felt that there have been 
times when your Commodore 64 was operating just too slowly for your 
requirements. The fast execution of programs is vital for such uses as high 
speed action games or simulations and complex games like chess which 
may involve looking ahead at hundreds of possible moves, whilst getting a 
response within a reasonable time. If you have become sufficiently skilled 
in the techniques of Commodore BASIC programming you may like to go 
on and try machine code programming which will give you the extra 
speed. This involves writing the program directly in the form that is 
obtained when the BASIC interpreter converts a BASIC program into code 
that the computer can understand. Since the translating process is no 
longer required, a machine code program will execute many times faster 
than its equivalent high level program (a machine code program also has 
the advantage that it occupies less memory space). This section of the 
book is not intended to teach the intricacies of machine code programming 
but to, hopefully, wet the appetite of the Commodore 64 user enough to 
seek more information about the subject. 

How does a machine code program differ from a BASIC program? Well, 
basically a machine code program looks like a long list of pairs of 
hexadecimal digits, with each pair representing a code for a certain 
instruction that the computer is required to undertake. Unfortunately the 
long list of digits are far less readable than the English-like structure of a 
BASIC program. The actual number of instructions that are available is 
immense and so, even the most experienced machine code programmers 
have to refer to reference tables for the correct codes. The instructions 
availableare listed in terms of assembler language in Figure26.1 but each 
of these have certain variations that require checking in a book specialising 
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on the 651 OA microprocessor. Each individual machine code instruction 
usually has a very simple task - the most common is storing a value at a 
particular location. Other operations carried out by the 651 OA include 
addition, subtraction, logical AND, OR, exclusive-OR, compare, the 
shifting and rotating of the bits, incrementing or decrementing a value by 
1, the manipulation of individual bits, conditional jumps, stack operations 
and I/O operatios. In addition to the addresses in the RAM, there are 
several other locations, called reisters, that can store values; each of these, 
which have specific names, are called: 

1. The Accumulator - holds the result of arithmetic and logical operations. 

2. The x Index Register - used by specific instructions. 

3. The y Index Register - used by specific instructions. 

4. The Program Counter - contains the address of the machine code 
instruction that is currently being obeyed. After this instruction has been 
carried out the program counter is incremented by 1. It is possible to make 
a jump in a machine code program and this will cause the value of the 
program counter to change to the address of the instruction to which the 
jump refers. 

5. The Stack Pointer - this contains the address of the top of a stack that is 
used by the 651 OA. By using machine code instructions, data may be 
popped from and pushed onto the stack. 

6. The Process Status - this register contains a group of 8 bits, each bit 
indicates a different specific condition relating to the result of arithmetic 
and logical operations, i.e. overflow flag, zero flag, carry flag etc. 

Once written, a machine code program can be stored in the memory by 
POKEing each instruction into sequential addresses of the RAM. It can 
then be executed by using either the system command SYS or the 
function USR. 


Syntax: 

SYS <address> 
USR (<numeric>) 


SYS will commence the execution of a machine code program from the 
address specified until the instruction RTS, return from subroutine, is 
executed (all rather similar to calling a BASIC subroutine). Similarly USR 
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will execute a machine code program from the location specified at 
address 785/6 (031 1/2 (hex)). The argument to the function is stored in 
a floating point form at address 97(0061 (hex)) for the exponent and 
addresses 98-1 01 (0062-0065(hex)) for the mantissa - this location is 
called the 'floating point accumulator' and is used in machine code 
programming to carry out mathematical operations on values other than 
the integers 0 to 255. Again RTS will return the program back into BASIC 
mode. If there is no RTS instruction the computer will remain in the 
machine code system indefinitely. If you run a BASIC program containing 
errors, the computer will stop execution and display the error reports. 
However, a machine code program containing errors will probably crash 


and there will be no way of stopping the program. Pressing 
have 


RUN 

STOP 


will 


no effect and so the only way of regaining normality will be to disconnect 
the power supply, which unfortunately will mean the contents of the 
memory will be lost!! 


6510 MICROPROCESSOR ASSEMBLER 
LANGUAGE INSTRUCTION SET 


Figure 26.1 


ADC Add to Accumulator with carry. 

AND Logical AND with Accumulator 

ASL Shift one bit to left 

BCC Branch on Carry clear 

BCS Branch on Carry set 

ADC Add to Accumulator with carry. 

AND Logical AND with Accumulator 

ASL Shift one bit to left 

BCC Branch on Carry clear 

BCS Branch on Carry set 

BEQ Branch on result zero 

BIT Test specific bit 

BMI Branch on negative result 

BNE Branch on non zero result 

BPL Branch on positive result 

BRK Break 

BVC Branch on Overflow clear 

BVS Branch on Overflow set 

CLC Clear Carry Flag 
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CLD Clear decimal mode 

CLI Clear Interrupt Disable bit 

CLV Clear Overflow Flag 

CMP Compare with Accumulator 

CPX Compare with Index X 

CPY Compare with Index Y 

DEC Decrement by 1 

DEX Decrement Index X by 1 

DEY Decrement Index Y by 1 

EOR Exclusive Or with Accumulator 

INC Increment by 1 

INX Increment Index X by 1 

INY Increment Index Y by 1 

JMP Jump 

JSR Subroutine jump 

LDA Load Accumulator 

LDX Load Index X 

LDY Load IndexY 

LSR Shift one bit to right 

NOP No operation 

ORA Logical OR with Accumulator 

PHA Push Accumulator on Stack 

PHP Push Processor Status on Stack 

PLA Pop Accumulator from Stack 

PLP Pop Processor Status from Stack 

ROL Rotate bits one bit to left 

ROR Rotate bits one bit to right 

RTI Return from interrupt 

RTS Return from subroutine 

SBC Subtract from Accumulator with borrow 

SEC Set Carry Flag 

SED Set decimal mode 

SEI Set Interrupt Disable Status 

STA Store Accumulator 

STX Store Index X 

STY Store Index Y 

TAX Transfer Accumulator to Index X 

TAY Transfer Accumulator to Index Y 

TSX Transfer Stack Pointer to Index X 

TXA Transfer Index X to Accumulator 

TXS Transfer Index X to Stack Pointer 

TYA Transfer Index Y to Accumulator 
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If at this stage you are feeling that machine code programming is tedious 
to use - then you are right - it is! Fortunately there are some software tools 
available from Commodore which can make machine code programming 
a lot more enjoyable. 

The Commodore Assembler Development Package (Commodore Product 
No. ASM 6440) is a series of software tools that enables the Commodore 
64 user to create, assemble, load and execute 651 0 assembly language 
code. By using an assembler it is possible to write a machine code 
program using mnemonics, as in Figure 26.1, for each instruction rather 
than the pair of hexadecimal digits that represents the actual instruction. 

The fact that you are writing mnemonics that have an obvious meaning 
(such as JMP for jump, ADC for add) makes life a lot simpler. 

Commands included in the Commodore package allow you to:- 

- enter a line of assembly code 

- compare two areas of memory 

- disassemble code (this is the process of converting machine code 
back into assembler) 

- fill a range of memory locations with a specific byte 

- search through memory 

- display memory in ASCII format 

- display memory in hexadecimal format 

- relocate in absolute memory with an offset 

- display the contents of registers 

- transfer data from one area of memory to another 

- and much more 

The assembler development package is available on diskette and includes 
a comprehensive manual containing full instructions. 

In addition, the Commodore Assembler Tutor package (Commodore 
Product No. AST 6440/6420) is available for programmers who have no 
experience with machine code or those requiring more knowledge on the 
subject. The package is written about the 6502 microprocessor from 
which the 6510 was derived. The package is avialable on either diskette 
or cassette and comprises the three modules 

- representation of information 

- hardware and instructions 

- software and programming 

A user handbook is provided with the package but the vast majority of 
teaching information is displayed on the screen. 
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Finally there is one other method of obtaining a machine code program - 
right back in Chapter 1 we learned that a machine code program could be 
obtained from a high level langugage source program by a process known 
as compilation. When compiled, a program is converted into a separate 
machine code form; whenever the program is run the machine code 
version is executed. A BASIC compiler from Commodore called PETSPEED 
(Commodore Product No. PSP 6440) is available which enables a 
machine code version of a BASIC program to be executed up to 40 times 
faster than the original. When executed, the fact that a program is running 
under PETSPEED is completely user transparent. The PETSPEED BASIC 
compiler is available on diskette. 
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APPENDIX A 



CHR$ 

[" —. 

PRINTS 

CHRS 

PRINTS 

CHRS 

17 


34 

3 

51 

18 

# 

35 

4 

52 

19 

$ 

36 

5 

53 

20 

% 

37 

6 

54 

21 

& 

38 

7 

55 

22 


39 

8 

56 

23 

( 

40 

9 

57 

24 

) 

41 


58 

25 

* 

42 

; 

59 

26 

+ 

43 

<1 

60 

27 

, 

44 

= 

81 

28 

- 

45 

3 

62 

29 


46 

? 

63 

30 

/ 

47 

@ 

64 

31 

0 

48 

A 

65 

32 

1 

49 

B 

66 

33 

2 

50 

C 

67 

97 

0 

126 


155 

98 

\3 

127 * 

Jjj^ 

156 

99 


128 


157 

100 


129 


158 

101 


130 

E3L 

159 















PRINTS 

CHR$ 

PRINTS 

CHR$ 

PRINTS CHR$ 

PRINTS 

CHR$ 

1 

1 

73 

a 

102 


131 


160 

J 

74 

□ 

103 


132 

E 

161 

K 

75 

□ 

104 

fl 

133 

H 

162 

L 

76 

Q 

105 

f3 

134 

n 

163 

M 

77 ! 

Q 

106 

f5 

135 

□ 

164 

N 

78 ! 

FI 

107 

f7 

136 

□ 

165 

0 

79 

□ 

108 

f2 

137 

m 

166 

P 

o 

CO 

s 

109 

f4 

138 

□ 

167 

Q 

81 

X 

110 

f6 

139 

S5ffi 

168 

R 

82 

□ 

111 

f8 

140 

B 

169 

S 

83 

□ 

112 

11291 Q3233i 4i 

□ 

170 

T 

84 

# 

113 

m 

H 142 

LH 

171 

U 

85 

f J 

114 


143 

■ 

172 

V 

86 

Y 1 

115 


[ 144 

rq 

173 

W 

87 

□ 

116 



145 

b_l 

174 

X 

88 

Ld 

117 


[ 146 

□ 

175 

Y 

89 

X 

118 



147 

Ld 

176 

z 

90 

O 

119 



148 

H 

177 

[ 

91 

[♦i 

120 


149 

H 

178 

£ 

92 

LI 

121 


150 

ffi 

179 

] 

93 

♦ 

122 


151 

□ 

180 

t 

94 

m 

123 


152 

E 

181 

— 

95 

E 

124 


153 

[1 

182 

f— 1 

96 

m 

125 


154 

1 _i 

183 

H 

184 

□ 

186 

[ 

3 

188 

E 

190 

U 

185 

SlJ 

187 

H 

189 

S 

191 


CODES 192-223 SAME AS 96-127 

CODES 224-254 SAME AS 160-190 

CODE 255 SAME AS 126 
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APPENDIX B 


SET 1 

SET 2 

POKE 

SET 1 

SET 2 POKE 

SET 1 

SET 2 

POKE 

(a 


0 

C 

c 3 

F 

f 

6 

A 

a 

1 

D 

d 4 

G 

g 

7 

B 

b 

2 

E 

e 5 

H 

h 

8 

1 

i 

9 

0/ 

0 

37 

A 

A 

65 

J 

J 

10 

& 

38 

:i; 

B 

66 

K 

k 

11 


39 

-—' 

C 

67 

L 

1 

12 

( 

40 

F-i 

D 

68 

M 

m 

13 

) 

41 

P_j 

E 

69 

N 

n 

14 

* 

42 

u 

F 

70 

0 

0 

15 

- 

43 

12 

G 

71 

P 

P 

16 


44 

□ 

H 

72 

Q 

q 

17 

- 

45 


1 

73 

R 

r 

18 


46 

rs 

J 

74 

S 

s 

19 


47 

Z 

K 

75 

T 

t 

20 

0 

48 

LJ 

L 

76 

U 

u 

21 

1 

49 

N 

M 

77 

V 

V 

22 

2 

50 

iZi 

N 

78 

w 

w 

23 

1 3 

51 

n 

0 

79 

X 

X 

24 

4 

52 

□ 

P 

80 

Y 

y 

25 

5 

53 

m 

Q 

81 

z 

z 

26 

6 

54 

□ 

R 

82 

[ 


27 

7 

55 


S 

83 

£ 


28 

8 

56 

□ 

T 

84 
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3 ] a 


SET 1 SET 2 

POKE 

SET 1 

SET 2 

POKE 

SET 1 

SET 2 

POKE 

] 

29 

9 


57 

□ 

U 

85 

t 

I 

30 



58 


V 

86 

<- 

31 

; 


59 

□ 

W 

87 


32 

< 


60 

® 

X 

88 


33 

= 


61 

CD 

y 

89 


34 

> 


62 

ffl 

z 

90 

# 

35 

? 


63 

ffl 


91 

$ 

36 

B 


64 

B 


92 

m 

93 

E 


105 

B 


117 


94 

>□ 


106 

□ 


118 

HH 

95 

- ffl 


107 

n 


119 


96 

■Q 


108 



120 

B 

97 

S 


109 

, . 


121 

. 

98 

El] 


11C 


E 

122 

r] 

99 

bJ 


111 

■ 


123 

rfSh 

100 

■ E 


112 

■ 


124 

□ 

101 

ffi 


113 

-1 


125 

m 

102 

1 E 


114 

■ ' 


126 

□ 

103 

■ec 


115 



127 

s 

104 j 

[ 


116 





Codes from 128-255 are reversed images of codes 0-127. 
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APPENDIX C 


SCREEN CONTROL CHARACTERS 

CHR$'• 47) 3 CLEAR SCREEN. 

CHR$< 19) 3 CURSOR HOME. 

CHR*<145) n CURSOR UP. 

CHR£< 29) M CURSOR RIGHT. 

CHR$<157) IS CURSOR LEFT. 

CHR$< 17) » CURSOR DOWN. 

CHR*<146) 3 REVERSE CONTRAST OFF. 
CHRf< 18) 5 REVERSE CONTRAST ON, 


CHR$<144) ■ 
CHR*< 5) 4 
CHR$< 28) q 
CHR*<159) fc. 
CHR*<156) 8 
CHR$< 30) ii 
CHR$< 31) S 
CHR$<158) lil 
chr$<i 29> ;a 
CHR*<149) K 
CHR#<150) 8 
CHR*<151) a 
CHRtC 152) S3 
CHR$< 153) II 
CHR*<154) 3 
CHR#< 155) Si 

CHR*< 14) Bl 
CHR#<142) 8 
CHR*< 8) SI 
CHR$< 9) H 

CHR$d41) 0 


COLOUR BLACK. 

COLOUR WHITE. 

COLOUR RED. 

COLOUR CYAN. 

COLOUR PURPLE. 

COLOUR GREEN. 

COLOUR BLUE. 

COLOUR YELLOW. 

COLOUR ORANGE. 

COLOUR BROWN. 

COLOUR LIGHT RED. 

COLOUR GREY 1. 

COLOUR GREY 2. 

COLOUR LIGHT GREEN. 

COLOUR LIGHT BLUE. 

COLOUR GREY 3. . 

UPPER/LOWER MODE. * . 

UPPER/GRAPHIC MODE. . . * 

DISABLE CHARACTER MODE SWITCH. * x rec '' y * 
ENABLE CHARACTER MODE SWITCH. * rrom .* 


SHIFTED RETURN. 


* * 
■fb * ¥: H * -&■ ¥: Hr ¥: -ft 
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PRINTER CONTROL CHARACTERS 


CHRf< 

10 ) 

LINE FEED. 

CHRf< 

13) 

CARRIAGE RETURN. 

CHRf< 

S) 

GRAPHIC MODE. 

CHRf ( 

14) 

DOUBLE WIDTH PRINT MODE. 

CHr-f < 

15) 

STANDARD WIDTH PRINT MODE. 

CHRfC 

16) 

SET PRINT POSITION. 

CHR$< 

27) 

SET DOT POSITION. 

CHRf < 

26) 

REPEAT GRAPHIC CHARACTER. 

CHRf(i45) 

UPPER CASE MODE,, 

CHR$< 

17) 

LOWER CASE MODE,, 

CHRf< 

18) 

REVERSE ON MODE. 

CHRf(l46) 

REVERSE OFF MODE. 
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APPENDIX D 

MOS 6566 VIDEO INTERFACE CONTROLLER (VIC) 


Address 

(hex) 



BIT 5 

BIT 4 

BIT 3 


BIT 1 


D000 

Sprite 0 x position 

D001 

Sprite 0 y position 

D002 

Sprite 1 x position 

DG03 

Sprite 1 y position 

D004 

Sprite 2 x position 

D005 

Sprite 2 y position 

D006 

Sprite 3 x position 

D007 

Sprite 3 y position 

D008 

Sprite 4 x position 

D009 

Sprite 4 y position 

DOOA 

Sprite 5 x position 

DOOB 

Sprite 5 y position 

DOOC 

Sprite 6 x position 

DOOD 

Sprite 6 y position 

DOOE 

Sprite 7 x position 

DOOF 

Sprite 7 y position 

D01 0 

1 i i i l 1 | 

Most Significant Bit of Sprites (0-7) x postion 

I 1 1 1 I i 1 

D01 1 

t * t 1 | 

Extended . 24/25 

Raster colour Blt Blank Row V value used for 

Compare Text map screen y ext vertical scrolling 

l ! 1 1 1 

D01 2 

Compare IRQ Read Raster/Write Raster 

D01 3 

x position of light pen 

DOM 

y position of light pen 

D01 5 

l 1 1 I 1 1 1 

Sprites (0-7) On/Off Flags 

8 i 1 i i i i 

D01 6 

fill 

3/40 

Unused 0 Muit '- Column x value used for 

colour TexT horizontal scrolling 

, 1 l 1 1 , _._ 

D01 7 

l‘‘l' 1 1 

Sprites (0-7) Vertical Expansion/Contraction Flags 


J_I__I__i__i__L 


Address 

53248 (decimal) 

53249 

53250 

53251 

53252 

53253 

53254 

53255 

53256 

53257 

53258 

53259 

53260 

53261 

53262 

53263 

53264 

53265 

53266 

53267 

53268 

53269 

53270 

53271 


287 








Address 

(hex) 


D01 8 

D01 9 

D01 A 

D01B 

D01C 

D01D 

D01E 

D01 F 

D020 

D021 

D022 

D023 

D024 

D025 

D026 

D027 

D028 

D029 

D02A 

D02B 

D02C 

D02D 

D02E 


BIT 7 BIT 6 BIT 5 BIT 4 


BIT 3 BIT 2 BIT 1 


BIT 0 


Video Matrix Base Address Character Dot Data Base 
Relative to VIC Address Relative to VIC 


Req 

Condition 

Flag 


^ Liaht f p,i,e/ fP" ,e/ Raster 

ren S’ 5 "" /T "'" d Compa 

pen Collision Collision 

I IR 0 IPQ IRQ , IRQ 


IRQ Mask Register 


-j | i | | | p 

Set for Sprites (0-7) Priority Over Background 

_l-1-1-1-1-1-1_ 

Sprites (0-7) Multicolour Flags 


-h 


H- 


+ 


Sprites (0-7) Horizontal Expansion/Contraction Flags 

-I-1-,-1-1-1- h 

Sprite/Sprite Collision Flags 

-J-1_I_I_I_ » l 


Sprite/Background Collision Flags 


Border Colour 


Background Colour 0 


Background Colour 1 


Background Colour 2 


Background Colour 3 


Sprite Multicolour Register 0 


Sprite Multicolour Register 1 


Sprite 0 Colour 


Sprite 1 Colour 


Sprite 2 Colour 


Sprite 3 Colour 


Sprite 4 Colour 


Sprite 5 Colour 


Sprite 6 Colour 


Sprite 7 Colour 


Address 
53272 (decimal) 


53273 

53274 

53275 

53276 

53277 

53278 

53279 

53280 

53281 

53282 

53283 

53284 

53285 

53286 

53287 

53288 

53289 

53290 

53291 

53292 

53293 

53294 
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APPENDIX E 


MOS 6581 SOUND INTERFACE DEVICE (SID) 

Address 
(hex) 

D400 

D401 

D402 

D403 

D404 

D405 

D406 

D407 

D408 

D409 

D40A 

D40B 

D40C 

D40D 


BIT 6 BIT 5 BIT 4 BIT 3 


BIT 2 BIT 1 


BIT 0 


Voice 1 Frequency Control - (Low Byte) 


Voice 1 Frequency Control - (High Byte) 


Voice 1 Pu Ise Waveform Width - (Low Byte) 


“T 


+ 


Voice 1 Pulse Waveform Width 
(most significant bits) 


Random 1 Pulse 1 Sawtooth ^ Triangle Disable ^ Ring MOD ^ Sync. ^ Gate Bit 
Noise Waveform Waveform Waveform OSC 1 OSC 1 Wlth °SC1 with 


Waveform 


_L 


i 


-h 


OSC 3 


OSC 3 


Envelope 1 
Attack Cycle Duration 


Envelope 1 

Decay Cycle Duration 


Envelope 1 

Sustain Cycle Duration 




Envelope 1 

Release Cycle Duration 


Voice 2 Frequency Control - (Low Byte) 


Voice 2 Frequency Control - (High Byte) 


Voice 2 Pulse Waveform Width - (Low Byte) 


T 


Voice 2 Pulse Waveform Width 
(most signficant bits) 


Random ' Pulse ^ Sawtooth ^Triangle ^ Disable ^ Ring MOD * Sync. Gate Bit 

Noise Waveform Waveform Waveform OSC 2 OSC 2 with OSC 2 with 


Envelope 2 
Attack Cycle Duration 


Envelope 2 
Decay Cycle Duration 


Envelope 2 

Sustain Cycle Duration 


Envelope 2 

Release Cycle Duration 


Address 

(decimal) 

54272 

54273 

54274 

54275 

54276 

54277 

54278 

54279 

54280 

54281 

54282 

54283 

54284 

54285 
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Voice 3 Frequency Control - (Low Byte) 


54286 


Voice 3 Frequency Control - (High Byte) 

Voice 3 Pulse Waveform Width - (Low Byte) 

Voice 3 Pulse Waveform Width 
(most significant bits) 

Random 1 Pulse ' Sawtooth 'Triangle 'Disable 1 Ring MOD ' Sync. 'Gate Bit 

Noise Waveform Waveform Waveform OSC 3 OSC 3 with OSC 3 with 

Waveform| j j ( f OSC 2 ^ OSC 2 ^ 

Envelope 3 Envelope 3 

Attack Cycle DuratioiSi Decay Cycle Duration 

j 

Envelope 3 Evnelope 3 

Sustain Cycle Duration Release Cycle Duration 

1 Filter Cutt Off Frequency 
^ (least significant bits) 

Filter Cut Off Frequency - (High Byte) 

1 l I-1- - 

_ , Filter Voice 3 Voice 2 Voice 1 

F.lter Resonance External 0utput 0utpu , 0utput 

_ . 1 Input | i I 

Cut off ' Filter • Filter ' Filter 1 

voice 3 High Band Low Output Volume 

Output | Pass | Pass ( Pass ^ 

Analogue/Digital Converter 1 

Analogue/Digital Converter 2 

Oscillator 3 Random Number Generator 

Envelope Generator 3 Output 


54287 

54288 

54289 

54290 

54291 

54292 

54293 

54294 

54295 

54296 

54297 

54298 

54299 

54300 










APPENDIX F 


ABBREVIATIONS FOR BASIC KEYWORDS 

When typing in a BASIC command or program line the majority of the 
BASIC keywords can be entered in an abbreviated form using the initial of 
the keyword follow ed by pressing the second letter of the k eyword 
simultaneously wit hfeKllM . e.g. to obtain CH R$ we would press C, MBHii 
H. A program entered using abbreviations will be LISTed with the 
keywords in their expanded form. 

The few exceptions to the rule are: 

CLOSE - C.L HBIHi O RETURN - R.E. H8IIM T 

GOSUB G,O gaSiS STATUS - S,T 

lefts - l,e, gam f str$ -s,t, gam R 

PRINT -? TIME -T,l 

RESTORE - R.E. M S TIMES -T,l,$ 

The following keywords cannot be abbreviated: 

COS 

FN 

GET# 

IF 

INPUT 

INT 

LEN 

LOG 

NEW 

ON 

OR 

POS 

REM 

TAN 
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APPENDIX G 


SOFTWARE AVAILABLE FOR THE COMMODORE 
64 

Even at such an early stage in the life of the Commodore 64 there are 
numerous software packages available for such uses as accounting, club 
managment, education, financial planning, games, graphics, mathematics, 
music composition, programming utilities, stock control, word processing, 
etc - the list is endless. To obtain an up to date view of what software is 
available one should refer to one of the many personal computer 
magazines. 

The following brief notes on a section of Commodore software may be of 
some interest. 

SIMON'S BASIC 

SIMON'S BASIC (Commodore product No. SIB641 0) has been designed 
to enable programmers of all levels to easily utilise the potential of their 
Commodore 64. There are three sections to the package: 

- Toolkit: removes some of the more tedious aspects of computer 
programming 

-GraphicandSoundCommands:provides some additional BASIC 

commands to use the graphic and sound 
feautre more easily - no more POKEing 
around in the VIC and SID's control 
registers. 

- Structured Programming provides some additional BASIC 

Commands: commands that enable programs to be 

written in a structured form. This technique 
avoides the GOTO statement and as a 
result we do not get large programs with 
lots of jumps that are difficult to keep 
track of. 
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Other commands that are available enable: 


- screen formatting 

- input validation 

- character string manipulation 

- number system conversions 

- screen scrolling 

- and much more 

The package is available on a cartridge which can be slotted on at the rear 
of the Commodore 64. 

Other Computer Languages 

In addition to BASIC, several other computer languages are available from 
Commodore on diskette. 

COMAL - Common Algorithmic Language (Commodore Product No. CML 
6440/641 0) COMAL combines the ease of BASIC with the format of a 
structured language like ALGOL, Pascal etc. COMAL is an ideal language 
for programmers of all levels and because the programs are structured, 
long programs can be easily read. Also available in cartridge form. 

PILOT - (Commodore Product No. PLT 6440) PILOT is a computer aided 
learning language which allows tutors to compose lessons on the 
computer for their pupils to answer through the keyboard. 

LOGO - (Commodore Product No. LG 6440) LOGO is a computer graphic 
language which is often used in schools in a learning/teaching environment 
(PILOT and LOGO may be used in conjunction with each other) 

PROGRAMMER'S UTILITIES 

The programmer's utilities package (Commodore Product No. UTL 6440) 
contains a wide variety of useful programs for the BASIC and assembler 
programmer to get the most from the Commodore 64. The package, 
which is available on diskette, contains the following utilities: 

- a number of disk handling commands 

- a machine code monitor 

- a user defined character editor 

- a sprite editor 

- a program to experiment with the SID 
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- a PET emulator which enables earlier versions of Commodore BASIC to 
be executed 

- a screen editor with input validation 

- and much more 

MACHINE CODE TOOLS 

A comprehensive list of Commodore software dealing with machine code 
on the Commodore 64 was given in Chapter 26. 

DISK OPERATING SYSTEM SUPPORT 


Provided with the VIC 1 541 disk drive and with certain other Commodore 
packages is a program call the "C64-Wedge". Once loaded the Commodore 
64 will appear to be as normal, with the exception of a few hundred less 
bytes, but the disk operating commands can be obtained more easily. The 
LOAD command is replaced by a V" and the device numbers need not be 
specified. The " " and ">" characters are used in place of PRINT# to send 
disk commands to the disk drive. The disk directory is obtained by either 
'$' or >$' and if an error occurs this is signalled by the red LED, then '' or 
>' will return the error message. 

For a detailed up-to-date list of Commodore's educational, business and 
programming utility software contact: 

Commodore Information Centre 

675 Ajax Avenue 

Slough 

Berkshire 

SL1 4BG 
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INDEX 


A 


ABS 

57 

Accumulator 

276 

Accuracy 

IS 

ADSR 

185 

Addition 

22 

Address 

1 1 1 

Algebraic expression 

21 

Algorithm 

25 

Alphabetical order 

45 

Alphabetical sorting 

93 

AND 

104 

Animation 

81 

Argument 

53 

Arithmetic 

19 

Arithmetic and logic unit 

4 

Array 

86 

Arcsine 

52 

Arcosine 

52 

ASC 

68 

ASCII 

68 

ASCII codes 

69 

Assembler 

279 

Assignement statements 

29 

Attack 

185 

ATN - arctangent 

60 


B 


BAM 

241 

Bank selection 

123 

BASIC 

15 

Binary notation 

95 

Binary tree 

265 

Bit 

96 



Bit mapped graphics 

140 

Block 

224 

Block allocation 

241,246 

Block pointer 

242 

Boolean algebra 

106 

Brackets 

22 

Bubble sort 

88 

Buffer - cassette 

224 

Buffer - disk 

242 

Buffer - keyboard 

13 

Byte 

96 

C 


Cassette buffer 

224 

Cassette interface 

224 

Character arrays 

86 

Character code 

68 

Character generator 

1 18 

Character set 

1 18 

Circular lists 

261 

CHR$ 

68 

Clear screen 

49 

CLOSE 

29 

CLR 

49 

CMD 

29, 218 

Collision detection 

170 

Colour display 

128 

Colour codes 

128 

Colour control characters 

127 

Colour memory 

113 

Complement - two's 

99 

Computer system 

3 

CONT 

30 

Control 

4 

Control statements 

37 

Control variables 

41 

Copy - screen to printer 

223 

COPY - disk command 

214 

COS - cosine 

60 

CTRL 

77 

Cursor 

77 

Cursor control characters 

77 



D 


DATA 

32 

Data file 

225 

Datasette 

206 

DEF 

65 

DEL - delete key 

77 

DIM - dimension 

47 

Disk 

207 

Disk buffer 

242 

Disk drive 

208 

Disk operating system 

210 

Display code 

131 

Display screen 

132 

Division 

22 

DOS 

210 

Doubly linked lists 

261 

Dynamic data structure 

254 


E 


Editing 

17 

END 

49 

Envelope 

185 

EOF - end of file 

231 

Error control, disks 

214 

Error reports 

239 

EXOR 

106 

EXP 

55 

Expansion ports 

10 

Exponential 

20 


F 


Files - cassette 
Files - disk 
Files - sequential 
Files - random access 
Floppy disk 
Flowchart 
Formatting disks 
FN 


224 

230 

224 

240 

209 
26 

210 
52 



FOR ... NEXT 

41 

FRE 

66 

Functions 

52 


G 


GET 

36 

GET# 

225 

GOSUB RETURN 

45 

GOTO 

37 

Graphs 

264 

Graphics - keys 

13 

Graphics - characters 

13 

Graphics - user defined 

121 
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